Opened by Rambo at 2006-05-11 18:46
User since
2003-08-14
803 Artikel
BenutzerIn
2003-08-14
803 Artikel
BenutzerIn
Hallo zusammen,
könnt ihr mir bitte bei folgenden Problem helfen,
ich habe ein Script welches ab Verzeichnis X bei allen
Dateien die Checksum überprüft.
Leider stimmen diese Checksumm nicht mit anderen Tools
überein.
Hier der Code.
Perl Code Ergebis:
test_file.ini
Digest is a6bdace927a308149e9dc8b5285e46db
md5.exe Ergebnis:
71AC64786DF01778B5791CB9E943AA44 test_file.ini
Was mach ich falsch?
Danke im voraus
Gruss
Rambo
könnt ihr mir bitte bei folgenden Problem helfen,
ich habe ein Script welches ab Verzeichnis X bei allen
Dateien die Checksum überprüft.
Leider stimmen diese Checksumm nicht mit anderen Tools
überein.
Hier der Code.
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
use strict;
use warnings;
use Digest::MD5;
use Cwd;
use File::Find;
my $dir = getcwd;;
my @files;
find(\&get_dir,$dir);
for my $file(@files)
{
print $file,"\n";
my $md5 = Digest::MD5->new;
$md5->add($file);
my $digest = $md5->hexdigest;
print "Digest is $digest\n";
}
sub get_dir
{
push(@files,$File::Find::name) if(-f $File::Find::name);
}
Perl Code Ergebis:
test_file.ini
Digest is a6bdace927a308149e9dc8b5285e46db
md5.exe Ergebnis:
71AC64786DF01778B5791CB9E943AA44 test_file.ini
Was mach ich falsch?
Danke im voraus
Gruss
Rambo