create md5 v1.0

reistlin

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

1. #!/usr/bin/perl -w
   
2. 
   
3. # Name: create 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. 
    
37. # Create MD5 Mode
    
38. sub createmd5 {
    
39.         my $path = shift;
    
40.         # clean path end "/"
    
41.         $path =~ s/\/+$//;
    
42. 
    
43.         opendir(DIR, $path) or die "[Error] Can not check directory [$path] \n";
    
44.         my @list = readdir(DIR);
    
45.         closedir(DIR);
    
46. 
    
47.         foreach my $tmp (@list) {
    
48.                 # exclude "." or ".."
    
49.                 next if ( $tmp =~ m/^\.+$/ );
    
50.                 # full path
    
51.                 my $path_sub = $path . "/" . $tmp;
    
52.                 # exclude directory
    
53.                 next if ( ( $path_sub =~ /$exclude_key/ ) && ( $exclude_tag == 1 ) );
    
54.                 # subdirectory recursive
    
55.                 if ( -d $path_sub ) {
    
56.                         &createmd5($path_sub);
    
57.                 } else {
    
58.                         $original_hash{$path_sub} = &md5sum($path_sub);
    
59.                 }
    
60.         }
    
61. }
    
62. 
    
63. 
    
64. # MD5 Check Mode
    
65. sub md5sum {
    
66.         my $file = shift;
    
67.         open(FILE, $file) or die "[Error] Can not check file [$file] \n";
    
68.         binmode(FILE);
    
69. 
    
70.         my $md5 = Digest::MD5->new();
    
71.         $md5->addfile(*FILE);
    
72. 
    
73.         close(FILE);
    
74. 
    
75.         $md5->hexdigest;
    
76. }
    
77. 
    
78. 
    
79. # File Stat Mode
    
80. sub filestat {
    
81.         my $file = shift;
    
82.         my @file_stat = stat($file);
    
83.         my $mtime = localtime $file_stat[9];
    
84.         my $ctime = localtime $file_stat[10];
    
85. 
    
86.         print "\n";
    
87.         print "[$file] Modify: $mtime \n";
    
88.         print "[$file] Change: $ctime \n";
    
89.         print "[$file] UID: $file_stat[4] \n";
    
90.         print "[$file] GID: $file_stat[5] \n";
    
91.         print "[$file] Size: $file_stat[7] bytes \n";
    
92.         print "\n";
    
93. }
    
94. 
    
95. 
    
96. # Main Program
    
97. &createmd5($checklist_dir);
    
98. 
    
99. 
    
100. # Create MD5 logfile
     
101. open(LINE, "+>" . $original_file) or die "[Error] Can not create MD5 logfile [$original_file] \n";
     
102. 
     
103. while ( my ($file, $md5) = each %original_hash ) {
     
104.         print LINE "$md5 $file\n";
     
105. }
     
106. 
     
107. close(LINE);
     
108. 
     
109. 
     
110. # Print Result
     
111. if ( -e $original_file ) {
     
112.         print "Congratulations! MD5 logfile Create Succeed! \n";
     
113.         &filestat($original_file);
     
114. }
     
115. 
     
116. 
     
117. # End Time
     
118. my $time_2 = time();
     
119. my $time = $time_2 - $time_1;
     
120. 
     
121. 
     
122. # Script Runtime
     
123. print "Runtime \[$time\] Seconds ... \n";
     
124. print "End! Good Luck! :-) \n";
     
125. print "\n";

复制代码