sub compare { my $self = shift; my $f1 = shift; my $f2 = shift; return 0 if (! -f $f1 || ! -f $f2); use Digest::MD5; open(FILE1, $f1) or return 0; open(FILE2, $f2) or return 0; binmode(FILE1); binmode(FILE2); my $ctx1 = Digest::MD5->new; m…

perldoc -f stat とかで組み込みのstat関数のドキュメントがでる。