check md5 v1.0

reistlin

作者: reistlin
来源: http://www.reistlin.com/blog/32
更新时间: 2010.08
版权声明: 原创文章.转载请保留作者信息和原文完整.谢绝任何方式的摘要

1. #!/usr/bin/perl -w
   
2. 
   
3. # Name: check md5 v1.0
   
4. # Author: reistlin
   
5. # Website: www.reistlin.com
   
6. # Hotfix: bigyong
   
7. # Website: www.bigyong.com
   
8. # Date: 2010.08.02
   
9. 
   
10. use strict;
    
11. use Data::Dumper;
    
12. use Digest::MD5 qw(md5 md5_hex md5_base64);
    
13. 
    
14. 
    
15. # Debug Switch
    
16. my $debug = 0;
    
17. 
    
18. # Start Time
    
19. my $time_1 = time();
    
20. # Clear
    
21. system "clear";
    
22. 
    
23. 
    
24. # Defined Original Hash File
    
25. my $original_file = "./check_md5.log";
    
26. my %original_hash;
    
27. 
    
28. # Defined CheckList Directory
    
29. my $checklist_dir = "/home/reistlin";
    
30. 
    
31. # Defined Exclude Directory
    
32. my $exclude_tag = 0;
    
33. my @exclude_dir = ("/home/reistlin/exclude1", "/home/reistlin/exclude2");
    
34. my $exclude_key = join("|", @exclude_dir);
    
35. 
    
36. # Defined Result
    
37. my @md5_ok;
    
38. my @md5_no;
    
39. my @md5_bad;
    
40. 
    
41. 
    
42. # Check Hash File
    
43. if ( ! -e $original_file ) {
    
44.         print "[Error] Can not open MD5 logfile [$original_file] \n";
    
45.         print "[Error] Please run the \[create_md5.pl\] to create original MD5 logfile \n";
    
46.         exit;
    
47. } else {
    
48.         # check file stat
    
49.         &filestat($original_file);
    
50. 
    
51.         # load hash file
    
52.         open(FILE, $original_file);
    
53. 
    
54.         while (<FILE>) {
    
55.                 my $line = $_;
    
56.                 if ( $line =~ m/(.+)\s+(.+?)\s*$/ ) {
    
57.                         $original_hash{$2} = $1;
    
58.                 }
    
59.         }
    
60.         close(FILE);
    
61. }
    
62. 
    
63. 
    
64. # List file Check MD5
    
65. sub checkmd5 {
    
66.         my $path = shift;
    
67.         # clean path end "/"
    
68.         $path =~ s/\/+$//;
    
69. 
    
70.         opendir(DIR, $path) or die "[Error] Can not check directory [$path] \n";
    
71.         my @list = readdir(DIR);
    
72.         closedir(DIR);
    
73. 
    
74.         foreach my $tmp (@list) {
    
75.                 # exclude "." or ".."
    
76.                 next if ( $tmp =~ m/^\.+$/ );
    
77.                 # full path
    
78.                 my $path_sub = $path . "/" . $tmp;
    
79.                 # exclude directory
    
80.                 next if ( ( $path_sub =~ /$exclude_key/ ) && ( $exclude_tag == 1 ) );
    
81.                 # subdirectory recursive
    
82.                 if ( -d $path_sub ) {
    
83.                         &checkmd5($path_sub);
    
84.                 } else {
    
85.                         # check key
    
86.                         if ( exists $original_hash{$path_sub} ) {
    
87.                                 # check md5
    
88.                                 if ( $original_hash{$path_sub} eq &md5sum($path_sub) ) {
    
89.                                         push @md5_ok, $path_sub;
    
90.                                 } else {
    
91.                                         push @md5_bad, $path_sub;
    
92.                                 }
    
93.                         } else {
    
94.                                 push @md5_no, $path_sub;
    
95.                         }
    
96.                 }
    
97.         }
    
98. }
    
99. 
    
100. 
     
101. # MD5 Check Mode
     
102. sub md5sum {
     
103.         my $file = shift;
     
104.         open(FILE, $file) or die "[Error] Can not check file [$file] \n";
     
105.         binmode(FILE);
     
106. 
     
107.         my $md5 = Digest::MD5->new();
     
108.         $md5->addfile(*FILE);
     
109. 
     
110.         close(FILE);
     
111. 
     
112.         $md5->hexdigest;
     
113. }
     
114. 
     
115. 
     
116. # File Stat Mode
     
117. sub filestat {
     
118.         my $file = shift;
     
119.         my @file_stat = stat($file);
     
120.         my $mtime = localtime $file_stat[9];
     
121.         my $ctime = localtime $file_stat[10];
     
122. 
     
123.         print "\n";
     
124.         print "[$file] Modify: $mtime \n";
     
125.         print "[$file] Change: $ctime \n";
     
126.         print "[$file] UID: $file_stat[4] \n";
     
127.         print "[$file] GID: $file_stat[5] \n";
     
128.         print "[$file] Size: $file_stat[7] bytes \n";
     
129.         print "\n";
     
130. }
     
131. 
     
132. 
     
133. # Print Array Mode
     
134. sub print_array {
     
135.         my @array = @_;
     
136.         foreach my $tmp (@array) {
     
137.                 print "$tmp \n";
     
138.         }
     
139. }
     
140. 
     
141. 
     
142. # Main Program
     
143. &checkmd5($checklist_dir);
     
144. 
     
145. 
     
146. # Print Result Mode
     
147. my $scalar_ok = scalar(@md5_ok);
     
148. my $scalar_no = scalar(@md5_no);
     
149. my $scalar_bad = scalar(@md5_bad);
     
150. 
     
151. print "[OK MD5] $scalar_ok Files:\n";
     
152. &print_array(@md5_ok);
     
153. print "\n";
     
154. 
     
155. print "[NO MD5] $scalar_no Files:\n";
     
156. &print_array(@md5_no);
     
157. print "\n";
     
158. 
     
159. print "[BAD MD5] $scalar_bad Files:\n";
     
160. &print_array(@md5_bad);
     
161. print "\n";
     
162. 
     
163. 
     
164. # End Time
     
165. my $time_2 = time();
     
166. my $time = $time_2 - $time_1;
     
167. 
     
168. # Script Runtime
     
169. print "Runtime \[$time\] Seconds ... \n";
     
170. print "End! Good Luck! :-) \n";
     
171. print "\n";

复制代码