Help for this page

Select Code to Download


  1. or download this
    use Digest::MD5::File qw(file_md5);
  2. or download this
    my $myfile = shift;
my $md5 =  new Digest::MD5;
...
$md5->addpath($myfile);
my $digest = $md5->hexdigest;
Win32::Clipboard::Set ($digest);
  3. or download this
    Win32::Clipboard::Set
  Digest::MD5->new->addpath(shift)->hexdigest;
  4. or download this
    Win32::Clipboard::Set file_md5 shift;