Leser: 2
9 Einträge, 1 Seite |
1
2
3
4
5
use Digest::MD5 qw(md5 md5_hex md5_base64);
$data = "c:/Test.txt";
$digest = md5_hex($data);
print $digest;
1
2
3
4
use Digest::MD5;
my $file = "c:/test.txt";
open(FILE, ':raw', $file) or die "Can't open '$file': $!";
print Digest::MD5->new->addfile(*FILE)->hexdigest, " $file\n";
9 Einträge, 1 Seite |