Исходное сообщение
"Perl + md5" Отправлено NuINu, 10-Май-07 17:21
Ну и в чем проблема? да я тут сделал стандартно, бинарное сравнение. ----------------------------------- #!/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);