Ну и в чем проблема?
да я тут сделал стандартно, бинарное сравнение.
-----------------------------------
#!/usr/bin/perl#ак можно реализовать скрипт на Perle по обработке md5, в bashе он реализуется достаточно просто:
#md5sum /etc >> data.md5
#md5sum -c data.md5
#но вот на перле я все перерыл и нашел только как получить md5 сумму с файла
use Digest::MD5;
open(MD, '<', "$ARGV[0]") or die "can't open list MD5 $ARGV[0]";
my $in;
$md5 = new Digest::MD5;
while($in = <MD>) {
#print "$in";
chomp $in;
my ($hash, $file) = split(/ /, $in);
open(FILE, $file) or die "Can't open '$file': $!";
binmode(FILE);
$md5->addfile(*FILE);
#my $rez = $md5->md5_hex($file);
my $rez = $md5->hexdigest;
if($rez eq $hash) {
print "file $file equvivalence!\n"
} else {
print "file $file different! old_hash = $hash, new_hash = $rez\n"
}
$md5->reset;
close(FILE);
}
close(MD);
exit(0);