Perl Digest::MD5 funkt nicht wie es soll?!

mr_kaktus · 13 Feb. 2007

Hi @all,

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";
}

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):

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?

Perl Digest::MD5 funkt nicht wie es soll?!

mr_kaktus

Member