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 chanyipiaomiao@163.com
  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. }

相关内容