perl语言编程－MD5应用篇

horsley

1. 
   
2. MD5算法是目前广为使用的杂凑算法，它一度被视为是牢不可破的。
   
3. 然而这个神话在今年8月份轰然倒塌，中国王小云教授的一篇论文
   
4. 宣告了它使命的终结。然而作为一种优秀的算法，在一定的领域内
   
5. 它依然有着无可替代的作用。
   
6. 
   
7. 在实际环境中，遇到这样一个问题。某公司的数据库为ora8,计划
   
8. 升级为ora9i,由于数据库版本跨度大且为海量数据，计划由dsg软
   
9. 件进行数据迁移。但在dsg测试中发现有数据丢失现象。现在要求
   
10. 提供一种手段对迁移前后的数据进行比较验证，确保万无一失。
    
11. 考虑到网上文件发布共享时广泛使用MD5提供对自身校验，显然这里
    
12. 情况极为类似。
    
13. 
    
14. 程序设计如下：打开一对管道，由父进程进行数据提取操作，传入
    
15. 管道。子进程进行MD5校验。源码如下:
    
16. 
    
17. unix# cat checkMD5
    
18. 
    
19. #!/bin/perl
    
20. 
    
21. use DBI;
    
22. #use Proc::Fork;
    
23. use IO::Pipe;
    
24. use Digest::MD5;
    
25. 
    
26. my $dbuser="test";
    
27. my $passwd="test";
    
28. my $dbstr="dbi:Oracle:ora8";
    
29. 
    
30. my $sql=shift or die "I need a sql string\n" ;
    
31. 
    
32. 
    
33. pipe(PIPE_READ,PIPE_WRITE) or die "Can't make pipe!\n";
    
34. 
    
35. if ($pid = fork) {
    
36. 
    
37.         close(PIPE_READ);
    
38. 
    
39.         my $dbh = DBI->connect ($dbstr, $dbuser, $passwd,
    
40.             { RaiseError => 1, AutoCommit => 0 }) || die "$DBI::errstr";
    
41.         my $sth = $dbh->prepare($sql); $sth->execute();
    
42.         while(my @result=$sth->fetchrow_array){
    
43.                 print PIPE_WRITE @result,"\n";
    
44.         }
    
45.         $dbh->disconnect();
    
46.         close(PIPE_WRITE);
    
47.         exit;
    
48. 
    
49. } else {
    
50. 
    
51.         defined $pid or die "can't fork:$!\n";
    
52.         close(PIPE_WRITE);
    
53.         binmode(PIPE_READ);
    
54.         print Digest::MD5->new->addfile(*PIPE_READ)->b64digest, "\n";
    
55.         close(PIPE_READ);
    
56.         exit;
    
57. }
    
58. 
    
59. 执行方法:perl checkMD5 "select * from test order by id"
    
60. 该程序将会对 sql 语句的结果集进行 md5 校验，生成唯一的校验值。
    
61. 
    
62. 缺点：1.结果集必须完全一致，因此要对主键进行排序。
    
63.       2.对于千万级别的表，处理时间太长。
    
64.       
    
65. 改进方法：1.采用其他算法，在《应用密码学》一书中提到了一种杂凑算法，
    
66.        与顺序无关。但没有找到进一步的资料，因此暂时用MD5 算法。希望
    
67.        了解的朋友不吝赐教。
    
68.        2.拟采用多进程方式，将ID值分成多个区间，并发查询。此是后话。
    

复制代码