Digest::MD5.pl

[Perl]
標準モジュールのDigest::MD5。
引数がファイルなら、そのファイルのMD5値を計算し、ファイルでないなら、その引数文字列のMD5値を計算する。

#! /usr/bin/perl

use strict;
use Digest::MD5;

my $md5;
my $type;
my $result;

$md5 = Digest::MD5->new();

for my $arg (@ARGV) {
	if (-f $arg) {
		open(OP, $arg) or die "file open failed: $arg\n";
		binmode(OP);
		$md5->addfile(*OP);
		close(OP);
		$type = "FILE";
	} else {
		$md5->add($arg);
		$type = "DATA";
	}

	print "$type: $arg: " . uc($md5->hexdigest) . "\n";

}