2つのファイルの整合性チェック

本番環境にあるモジュールと試験環境のモジュール。その整合性を確認したい。二つのファイルをdiffするのが簡単だろうけど、それやるにはどちらかの環境にあるファイルを、もう一方に持って行かなければならないので面倒くさい。ファイルサイズで調べると、同じサイズでも中身が微妙に違ったりするので、あてにならない。

そこで登場するのがMD5によるファイルのチェックサム。

以下のscriptで実現できる。

#!/usr/local/bin/perl

use Digest::MD5 qw(md5_hex);

open(F,$ARGV[0]);
print md5_hex(<F>),"\n";
close(F);

$ md5sum sample.txt
a6491b7c704a6e98a61822e3ece123a0

これで二つのファイルのチェックサムの値を比較すればよい。