转自http://bbs.chinaunix.net/thread-1360950-1-1.html

感觉不错，学习学习。。

需要使用了两个库  1. Image::Magick 用来进行图片处理  2. imgseek 进行图片比较 求出相似度

程序因为使用到 imgseek 所以只能在*nix下运行

程序设计时 分两个部分 1.建里特征图片库  2. 用随即图片与特征图片库进行比较 求出相似度最高的值 
这个程序仅仅是为了供大家研究参考    # 为了不惹麻烦 把测试网站删除了  
一. 建立特征图片库 
1. 下载 包含 0到9 共10个数字的图片
  
    我这里是 手工下载了10张第一个数字不同的图片 
2. 对图片进行处理 
    转换成灰度图 -> 2值化（我这里设定的阙值是20300）-> 把第一个数字切割下来

  3. 提取出仅含有数字的区域 （即去掉四周的空白）
复制代码

1. use Imager;
   
2. use Image::Seek qw(loaddb add_image query_id savedb);
   
3. loaddb("imgdata.db");
   
4.         my $img = Imager->new();
   
5.         my $file = './flag/II-'.$num.'.bmp'; 
   
6.         $img->open(file => $file);
   
7.         add_image($img,$num);
   
8.         savedb("imgdata.db");
   
9.         
   
10.         $img = undef;
    
11. }