Hi @all,ich würde gerne über das Modul Digest::MD5 die Checksumme zweier Dateien ermitteln und diese Vergleichen:
#!/usr/bin/perl -wuse strict;
use Digest::MD5::File qw(md5_hex);
my $oldfile="a";
my $newfile="b";
my $md5_oldfile=file_md5($oldfile);
my $md5_newfile=file_md5($newfile);
print $md5_oldfile . "\n";
print $md5_newfile . "\n";
if ("$md5_oldfile" eq $md5_newfile){
print "OK";
else
print "Unterschiedlich";
}[code]
Wenn ich das Skript ausführe, dann bekomme ich die Unterschiedliche Checksummen:[code]./md5sum.pl
0cc175b9c0f1b6a831c399e269772661
92eb5ffee6ae2fec3ad71c777531578f
Unterschiedlich
Wenn ich aber die md5sum vom System verwende, dann bekomme ich, die gleichen Checksummen (so wie es auch sein soll):
md5sum a b
832f9c9b0f981d6e70214862628aeaa2 a
832f9c9b0f981d6e70214862628aeaa2 b
Ich hab eine Datei "a" angelegt und in dieser Datei habe ich einen Text eingetragen. Danach hab ich mit "cp" eine Datei "b" erstellt, also eine Kopie von "a".
Kann mir jemand sagen, warum Perl andere Checksummen ausgibt?
Datum: 13.02.2007-14:04
use Digest::MD5 Funkt nicht wie es soll?!
