ダイジェスト1 MD5チェックサム (module)Digest-MD5

オプションモジュール
http://search.cpan.org/~gaas/Digest-MD5-2.33/MD5.pm
http://search.cpan.org/~delta/Digest-Perl-MD5-1.6/lib/Digest/Perl/MD5.pm

ファイルの MD5 チェックサムを表示する。
----
# OOP 形式
use Digest::MD5;

open(F, "sample.txt") || die "catnnot open: $!\n";
$md5 = Digest::MD5->new;
$md5->addfile(F);                # 文字列のチェックサムは $md5->add("strings");
  # もしくは
  # foreach (<F>) {
  #   md5->add($_);
  # }
print $md5->hexdigest . "\n";
close(F);

# 関数形式
use Digest::MD5 qw(md5_hex);

open(F, "sample.txt");
print md5_hex(<F>);
close(F);
----
hmiyazaki@mozzarella:~/work/prog/perl$ ./test.pl 
e457e4dbea9cb12dad3de71d4ea2144e
hmiyazaki@mozzarella:~/work/prog/perl$ md5sum sample.txt 
e457e4dbea9cb12dad3de71d4ea2144e *sample.txt