When set up to be accessed from a desktop short cut ("perl.exe CalcMD5.pl" in the shortcut target field) this script calc the md5 for a file dropped onto the short cut and pastes the result into the clipboard
use warnings; use strict; use Digest::MD5::File qw(file_md5); use Win32::Clipboard; my $myfile = shift; my $md5 = new Digest::MD5; $md5->addpath($myfile); my $digest = $md5->hexdigest; Win32::Clipboard::Set ($digest); print $digest;
In reply to Calc md5 for file by drag and drop (Windows) by GrandFather
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |