#!/sw/bin/perl use strict; use warnings; use Digest::MD5; my $file = '/Some/user/Desktop/Fedora/FC-6-i386-disc5.iso'; my $ctx = Digest::MD5->new; open 'FILE', '<', $file or die "Can't open $file: $!\n"; $ctx->addfile(*FILE); my $digest = print $ctx->hexdigest, "\n"; close($file);
In reply to Re: MD5 Hash
by Khen1950fx
in thread MD5 Hash
by Karger78
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |