如何创建拖放草莓 Perl 程序？

Question

I've got a Strawberry Perl program that accepts a single-file as a command-line argument. How can I set things up such that I can drag and drop the desired file onto the Strawberry Perl program (or a wrapper around it) and the program runs with that file's name as an argument?

Answer 1

Under Windows (tested with XP), you can create a.cmd file and simply have it run the Perl program with the argument of %1 to pass the filename over, as if executed by commandline.

perl c:\test.pl %1

Then you can simply drag and drop a file onto the.cmd file to execute.

Answer 2

Eeek. Please don't create a wrapper script/cmd when you don't need to.

Go into your Registry or your File Type dialog box in Windows, and redefine the Perl default action to say:

"C:\path-to-perl-folders\perl.exe" "%1" %*

This will cause double-clicking the.PL to launch perl.exe with the name of the double-clicked file (%1). The %* stuff (passing any filename arguments to the Perl script) is trickier.

Go into the Registry again (really, it's not as scary as people think) and find/create a "shellex" key under the Perl class, and then create a sub-key called "DropHandler" with a default string value of "{86C86720-42A0-1069-A2E8-08002B30309D}" (at least, that's my DropHandler in the US version of Windows XP).

This allows.pl files (actually, anything associated with the Perl class) to have a drop handler that tells Explorer what to do when you drop file(s) on the.pl script. In this case, it just means "run the Perl script with the dropped file(s) as arguments".

Hmmm, I don't think I explained that very well, but that's how I've set up Perl (running off a network drive) for a large engineering organization. Google for Perl and DropHandler, and you should be able to get the.reg Registry script to do this for you.

Answer 3

Here's another alternative to a "wrapper", but it requires a slight modification to the perl script:

1. Rename your script.pl script to script.cmd.
2. Add the following to the top of the file:

@SETLOCAL ENABLEEXTENSIONS
@c:\path\to\perl.exe -x "%~f0" %*
@exit /b %ERRORLEVEL%
#!perl
#line 6
#...perl script continues here...

The script is run like any other batch file. The first three lines basically invokes Perl on the CMD file itself ( %~f0 , which only works if CMD extensions are turned on). The -x paremeter to perl.exe tells Perl to skip everything until the #!perl line. " #line 6 " just aids in debugging.

This is my preferred solution when I don't know much about the target system (and may not be able to edit the registry).