Hi @all,
ich würde gerne über das Modul Digest::MD5 die Checksumme zweier Dateien ermitteln und diese Vergleichen:
Wenn ich das Skript ausführe, dann bekomme ich die Unterschiedliche Checksummen:
Wenn ich aber die md5sum vom System verwende, dann bekomme ich, die gleichen Checksummen (so wie es auch sein soll):
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?
ich würde gerne über das Modul Digest::MD5 die Checksumme zweier Dateien ermitteln und diese Vergleichen:
Code:
#!/usr/bin/perl -w
use 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:
./md5sum.pl
0cc175b9c0f1b6a831c399e269772661
92eb5ffee6ae2fec3ad71c777531578f
Unterschiedlich
Code:
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?