Re: Taking argument via drag-drop to a perl script

[kschwab]

From StackOverFlow:

Add a drop handler Adding a drop handler for Perl allows you to run a Perl script via drag & drop; e.g. dragging a file over the file icon in Windows Explorer and dropping it there. Run the following script to add the necessary entries to the registry:

use Win32::TieRegistry;
$Registry->Delimiter("/");
$perlKey = $Registry-> {"HKEY_CLASSES_ROOT/Perl/"};
$perlKey-> {"shellex/"} = {
    "DropHandler/" =>  {
        "/" => "{86C86720-42A0-1069-A2E8-08002B30309D}"
}};

Also, some other ideas here.

[bliako]

Any idea what that cryptic hex (i assume) string is? Is it MS's way of telling us they are the high priests of computing?

If they were, a mere 42 would have been perfectly sufficient. But they botched that up: the tally is only 41 ...

sub sumit {
        my $sum = 0;
        map { $sum += $_ } split //, @_ ? $_[0] : $_;
        $sum
}

my @sums = map { sumit } map { sumit hex } split /\-/, '86C86720-42A0-
+1069-A2E8-08002B30309D';
print sprintf "%s\n", join '+', @sums;

7+10+7+7+10

bw, bliako

[kschwab]

Apparently it's a magic moniker for EXE/COM/BAT drop handler...answers.microsoft.com.

[pryrt]

You've never seen UUID/GUID before? You can generate them from Perl, using modules like Data::GUID or Win32API::GUID. A Windows registry is chock-full of UUID, which are used for uniquely identifying handlers, objects, and the like. And they weren't even invented or standardized by Microsoft: there are equivalent standards among various bodies, including the Open Software Foundation, ISO/IEC, and IETF.

[bliako]

Thanks for the info. No, my mind did not go there at all.