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

在Windows下（使用XP进行测试），你可以创建一个.cmd文件，只需运行带有参数％1的Perl程序来传递文件名就好像由命令行执行一样。

perl c:\test.pl %1 

然后，您可以简单地将文件拖放到.cmd文件上执行。

Eeek！ 请不要在不需要时创建包装脚本/ cmd。

进入你的注册表或Windows中的文件类型对话框，并重新定义Perl的默认动作说：

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

这将导致双击.PL以双击文件（％1）的名称启动perl.exe。 ％*的东西（传递任何文件名参数到Perl脚本）是棘手的。

再次进入注册表（实际上并不像人们想象的那么可怕），并在Perl类下找到/创建一个“shellex”键，然后创建一个名为“DropHandler”的子键，其默认字符串值为“{86C86720 -42A0-1069-A2E8-08002B30309D}“（至少，这是我在美国版Windows XP中的DropHandler）。

这允许.pl文件（实际上与Perl类相关的任何东西）具有放置处理程序，该放置处理程序告诉资源管理器在.pl脚本上放置文件时要执行什么操作。 在这种情况下，它只是意味着“以删除的文件作为参数运行Perl脚本”。

嗯，我不认为我解释得很好，但这就是我为大型工程组织设置Perl（运行网络驱动器）的方式。 谷歌的Perl和DropHandler，你应该能够得到.reg注册表脚本为你做这个。

这是“包装器”的另一种替代方法，但需要对perl脚本进行一些修改：

1. 将script.pl脚本重命名为script.cmd。
2. 将以下内容添加到文件的顶部：

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

该脚本像任何其他批处理文件一样运行。 前三行主要是在CMD文件本身调用Perl（ %~f0 ，这只有在打开CMD扩展时才起作用）。 perl.exe的-x paremeter告诉Perl跳过所有内容，直到#!perl行。 “ #line 6 ”只是帮助调试。

当我不太了解目标系统（可能无法编辑注册表）时，这是我的首选解决方案。