Linux下計算文件的MD5值

腳本功能

腳本使用Perl編寫,計算文件的MD5值

腳本用途

服務器在安裝完操作系統後,計算PATH變量裡面所有的二進制文件的MD5、計算單個文件MD5值、計算某個目錄(包括子目錄)下所有的文件的MD5值記錄到文件,等日後再生成一份,然後2份文件進行對比,即可知道這些文件是否又被改動過.

腳本用法(5種用法)

1. 腳本名 -p [ > 輸出的文件名] ← 該功能是計算PATH變量裡面所有文件的MD5值
2. 腳本名 文件1 文件2 文件3 ... [ > 輸出的文件名] ← 該功能是計算指定文件的MD5值
3. 腳本名 目錄1 目錄2 目錄3 ... [ > 輸出的文件名] ← 該功能是計算指定目錄下所有文件的MD5值
4. 腳本名 -c MD5文件1 MD5文件2 [ > 輸出的文件名] ← 該功能是比較同一個目錄下所有文件生成的2次MD5文件中有哪些MD5值不一致
5. 腳本名 目錄 -f MD5文件 [ > 輸出的文件名] ← 該功能是跟上面的功能類似，只是這個不生成文件直接比對
   

注意事項

不能對/proc目錄進行計算
不能對/(根)進行計算,因為/裡面包含/proc
不能對掛載在Linux上Windows的共享目錄進行計算

腳本內容

1. #!/usr/bin/perl
2. use Digest::MD5;
3. use File::Find;
5. # 2012-11-24 22:41 Leo [email protected]
6. # Blog：http://linux5588.blog.51cto.com
8. #用法提示
9. $usage = "Usage: scriptname -p | Directory1 ... | File1 ... | -c MD5File1 MD5File2 | Directory -f MD5File [ > OUTFILE]";
10. $usagecompare = "Usage: scriptname -c MD5File1 MD5File2 [ > OUTFILE]";
11. $usagepath = "Usage: scriptname -p [ > OUTFILE]";
13. #判斷命令行參數是否為空,為空 則直接計算PATH路徑裡面所有的二進制文件的MD5值,不為空
14. #如果第一個參數是目錄,那麼調用getDirectoryAllFileMD5 計算目錄裡面所有文件的MD5值
15. #如果第一個參數是文件，那麼調用getSingleFileMD5 計算命令行參數裡面所有文件的MD5值
16. if (@ARGV) {
17. my $arg = $ARGV[0];
18. if (-d $arg ) {
19. if ($ARGV[1] eq '-f' && -T $ARGV[2]){
20. &compareWithLastMD5File($arg);
21. } else {
22. &getDirectoryAllFileMD5(@ARGV);
23. }
24. } elsif ( -f $arg ) {
25. &getSingleFileMD5(@ARGV);
26. } elsif ($arg eq '-c' && @ARGV == 3 ) {
27. die "$usagecompare\n" unless (-T $ARGV[1] && -T $ARGV[2]);
28. &compareWithTwoMD5Files;
29. } elsif ($arg eq '-p') {
30. die "$usagepath\n" unless (@ARGV == 1);
31. &getPathBinFileMD5;
32. } else {
33. die "$usage\n";
34. }
35. } else {
36. die "$usage\n";
37. }
39. #得到目錄下所有文件(包括子目錄)的MD5值
40. sub getDirectoryAllFileMD5 {
41. find(\&wantedPrint,@_);
42. }
44. #得到PATH變量裡面所有的二進制文件的MD5值
45. sub getPathBinFileMD5 {
46. my @path = split /:/,$ENV{PATH};
47. find(\&wantedPrint,@path);
48. }
50. #得到單個文件的MD5值
51. sub getSingleFileMD5 {
52. foreach (@_) {
53. if (-R $_) {
54. print "$_ ",&getMD5($_),"\n";
55. } else {
56. print "Can't read $_\n";
57. next;
58. }
59. }
60. }
62. #先生成該目錄下所有文件的MD5值,然後跟上一次該目錄的生成的MD5文件對比
63. #本次生成的MD5跟上一次生成的MD5文件比對,不一致的輸出出來,同時將3個時間輸出出來
64. #如果是新添加的文件則輸出出來其3個時間值,atime mtime ctime
65. sub compareWithLastMD5File {
66. find(\&wantedHash,@_);
67. my $md5file = $ARGV[2];
69. open MD5FILE,"<","$md5file"or die "Can't read $md5file : $!\n";
70. my $lastMD5Filerecords = (@lastMD5FilerecordsArray = <MD5FILE>);
71. my %lastMD5Hash = map { split } @lastMD5FilerecordsArray;
72. close MD5FILE;
74. foreach (keys %thisMD5Hash) {
75. $thisMD5Filerecords++;
76. }
78. if ($thisMD5Filerecords >= $lastMD5Filerecords) {
79. %hash1 = %thisMD5Hash;
80. %hash2 = %lastMD5Hash;
81. } else {
82. %hash1 = %lastMD5Hash;
83. %hash2 = %thisMD5Hash;
84. }
86. foreach (keys %hash1) {
87. if (exists $hash2{$_}) {
88. if ( $hash1{$_} ne $hash2{$_} ) {
89. ($atime,$mtime,$ctime) = &getFileAMCTime($_);
90. print "Different:$_ $hash1{$_} Atime:$atime Mtime:$mtime Ctime:$ctime\n";
91. }
92. } else {
93. if (-e $_) {
94. ($atime,$mtime,$ctime) = &getFileAMCTime($_);
95. print "Added:$_ $hash1{$_} Atime:$atime Mtime:$mtime Ctime:$ctime\n";
96. } else {
97. print "Deleted:$_ $hash1{$_}\n";
98. }
99. }
100. }
101. }
103. #比較2個生成的MD5文件(對同一個目錄生成的),找出不同的或者不存在的
104. sub compareWithTwoMD5Files {
105. my ($md5file1,$md5file2) = ($ARGV[1],$ARGV[2]);
106. open MD5FILE1,"<","$md5file1"or die "Can't read $md5file1 : $!\n";
107. open MD5FILE2,"<","$md5file2"or die "Can't read $md5file2 : $!\n";
108. my $file1record = (@file1record = <MD5FILE1>);
109. my $file2record = (@file2record = <MD5FILE2>);
110. close MD5FILE1;
111. close MD5FILE2;
113. my %hashmap1 = map { split } @file1record;
114. my %hashmap2 = map { split } @file2record;
116. if ($file1record >= $file2record) {
117. %hash1 = %hashmap1;
118. %hash2 = %hashmap2;
119. } else {
120. %hash1 = %hashmap2;
121. %hash2 = %hashmap1;
122. }
124. foreach (keys %hash1) {
125. if (exists $hash2{$_}) {
126. if ( $hash1{$_} ne $hash2{$_} ) {
127. ($atime,$mtime,$ctime) = &getFileAMCTime($_);
128. print "Different:$_ $hash1{$_} Atime:$atime Mtime:$mtime Ctime:$ctime\n";
129. }
130. } else {
131. if (-e $_) {
132. ($atime,$mtime,$ctime) = &getFileAMCTime($_);
133. print "Added:$_ $hash1{$_} Atime:$atime Mtime:$mtime Ctime:$ctime\n";
134. } else {
135. print "Deleted:$_ $hash1{$_}\n";
136. }
137. }
138. }
139. }
141. #遍歷條件,找到之後輸出
142. sub wantedPrint {
143. if (-f $_ && -R $_) {
144. print "$File::Find::name ",&getMD5($_),"\n";
145. }
146. }
148. #遍歷條件，找到之後形成一個HASH
149. sub wantedHash {
150. if (-f $_ && -r $_) {
151. $thisMD5Hash{$File::Find::name} = &getMD5($_);
152. }
153. }
155. #計算MD5值
156. sub getMD5 {
157. my $file = shift @_;
158. open(FH, $file) or die "Can't open '$file': $!\n";
159. binmode(FH);
160. my $filemd5 = Digest::MD5->new->addfile(FH)->hexdigest;
161. close FH;
162. return $filemd5;
163. }
165. #獲取文件的atime,mtime,ctime
166. sub getFileAMCTime {
167. $filename = shift @_;
168. my ($atime,$mtime ,$ctime) = (stat ($filename))[8,9,10];
169. $atime = &getTime($atime);
170. $mtime = &getTime($mtime);
171. $ctime = &getTime($ctime);
173. #將日期時間格式轉換為比較友好的格式
174. sub getTime {
175. my $time = shift @_;
176. my($sec,$min,$hour,$day,$mon,$year) = (localtime $time)[0..5];
177. $time = sprintf "%4d-%02d-%02d %2d:%02d:%02d",$year + 1900,$mon + 1,$day,$hour,$min,$sec;
178. return $time;
179. }
180. return $atime,$mtime,$ctime;
181. }