in reply to Taking argument via drag-drop to a perl script

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}"
}};

[download]
Also, some other ideas here.

Replies are listed 'Best First'.
Re^2: Taking argument via drag-drop to a perl script
by bliako (Abbot) on Dec 04, 2018 at 11:37 UTC

    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;

    [download]
    7+10+7+7+10

    bw, bliako

[reply]
[d/l]
[select]
[reply]

      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.

[reply]

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

[reply]

In Section Seekers of Perl Wisdom