如何在perl中复制正在运行的.exe？答案

【问题标题】：How to make a duplicate of the running .exe in perl?如何在perl中复制正在运行的.exe？
【发布时间】：2012-01-08 04:43:02
【问题描述】：

假设当前运行的 perl .exe 是C:\1\ABC.exe。我想仅使用 Perl 脚本在另一个目录中复制 ABC.exe 本身，例如将文件 ABC.exe 复制到 C:\2\。最好的方法是什么？

【问题讨论】：

你的意思是C:\1\ABC.exe是Perl解释器吗？如果是这样，它是如何得到这个名字的，你为什么要复制它？如果不是，在什么意义上它是“当前正在运行的 perl .exe”？
我已经编辑了你的问题。请确认我的编辑没有失去原意。（我完全不确定那是什么意思。）
普通操作系统命令cp .... 不适合您？你也可以试试 File::Copy
当然，cp ... 命令在 Windows 上不起作用。
你要在 Perl 中创建病毒吗？

【解决方案1】：

在 Perl 中询问如何复制文件真的很奇怪吗？

use File::Copy qw( copy );
copy("C:\\1\\ABC.exe", "C:\\2")
   or die("Copy failed: $!\n)";

【讨论】：