求助：如何编写一个perl程序完成自我的复制

greenfans

#!/usr/bin/perl -w
use strict;
`copy $0 1234.exe`;

我装上面代码保存至t.pl，然后使用perl2exe装t.pl编译成t.exe，执行t.exe，将会生成一个1234.exe，但是却是copy的t.pl，不是t.exe，请求一下各位高手，有什么方法能完成.exe文件的自我复制？
谢谢

我想要的功能是：
运行t1.exe能复制t1.exe到1234.exe和5678.exe
运行1234.exe能复制1234.exe到5678.exe
运行5678.exe能复制5678.exe到1234.exe

[ 本帖最后由 greenfans 于 2007-8-2 13:56 编辑 ]

royalzhang

`copy t.exe 1234.exe`;

rhinux

$0 在编译时已经替换了？

greenfans

原帖由 royalzhang 于 2007-7-30 19:14 发表
`copy t.exe 1234.exe`;

我想复制的是程序自身，而不是指定的某一个文件，你这样复制的话，1234.exe又怎么样能达到复制自己的目的呢？

flute

#!/usr/bin/perl -w
use strict;
$0 = 't.exe';
`copy $0 1234.exe`;

自己变通吧。呵呵

Perl小手

my $name = $0;
$name =~ s/pl$/exe/;
`cp $name 1234.exe"

greenfans

还是没有达到目的，我想要做的是这样：
运行t1.exe能复制t1.exe到1234.exe和5678.exe
运行1234.exe能复制1234.exe到5678.exe
运行5678.exe能复制5678.exe到1234.exe

zhuomingliang

原帖由 greenfans 于 2007-8-2 13:55 发表
还是没有达到目的，我想要做的是这样：
运行t1.exe能复制t1.exe到1234.exe和5678.exe
运行1234.exe能复制1234.exe到5678.exe
运行5678.exe能复制5678.exe到1234.exe

你这程序行为怎么看起来和病毒差不多似的。

2gua

是啊，有点奇怪。

uliyas

这个有点麻烦，系统变量$0并不能代表t。exe
看能不能通过获取当前进程的名字来得到文件名，这可能需要调用windows的API了

[ 本帖最后由 uliyas 于 2007-8-6 11:35 编辑 ]