#!/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 于 20...
#!/usr/bin/perl -w
use strict;
our $WORK_PATH = $ARGV[0];
#my $dir = "d:\\test\\";
open(FILE_A,"$WORK_PATH/A.txt") || die;
my @in_a=
一个perl教程：http://www.cbi.pku.edu.cn/chinese/documents/perl/index.htm 用这个命令可下载到本地脱机使用：wget -c -r -np http://www.cbi.pku.edu.cn/chinese/documents/perl/index.htm 顺便问一句，perl在生物上应用如何，有学生物的朋友吗？
我正在学perl,看的是第四版的<perl语言入门> ; 今天做了一个练习,感觉有点不对劲,是第四章的第一个练习,题目如下: 写一个名为&total 的子程序，返回一列数字的和. 我的代码如下:[code]#!/usr/bin/perl -w #chapter 4 exercise 1 sub total{ my $total=0; chomp(@_); foreach (@_){ $total+=$_; } $total; } my @terry = qw ( 1 2 3 4 5 ); $count=total(@terry); print ...
背景 一个朋友的服务器出现了一个莫名其妙的inetd 进程，开了 21000 端口，怀疑被入侵。登陆上去简单检查了一下，发现骇客不留神把后门的一个副本，遗留在临时目录下。经过检查是个用 perl 脚本写的后门。叫 Telnet-like Standard Daemon。后门找到了，入侵事件也基本被定性。 1. 目前主机上还运行着该后门，很有可能黑客已经通过编写启动脚本，将后门加入了随机启动。 2. 该主机存储了大量文件，同时容量很大，普通的find和grep命...
用Net::FTP::Recursive 上传目录 太慢了，有没有快点的方法。 目录中主要都是文本文件，上传一个750个文件的文件夹，要10分多钟。
