perl中有C语言中#define功能吗？

本帖最后由lpnueg4于2011-04-1817:52编辑想写一个配制文件，大概是这样的，  级别A的log输出到屏幕和log文件，  级别B的log只输出到log文件怎么都弄不出来。usestrict;usewarnings;useL

浙大ACM的1001。输入12输出3用perl怎么解决这题？http://acm.zju.edu.cn/onlinejudge/showProblem.do?problemCode=1001

大家好！abbbbbddd复制代码有如上文本。我只知道匹配a到最后一个bperl

请教下各位高人，如何用perl进行二进制模式读写文件：选一个图片文件，用binmode模式将文件内容读出来保存到另一个文件。谢了！！

在设计程序的时候碰到了一个个理不太清的问题，希望大家能够给个思路。问题描述：程序中以作业为主要对象，它本身有四种状态：1、还没开始做1、正在做，还没做完；3、已经完成，并正常结束；4、已经完成，非正常结束；这些作业指的是一个个文件，他们分别位于不同的路径中，比如：file1file2  。。。。filen  位于文件夹job1中&n

#!/usr/bin/perl#==========================================================================#      FILE:  page.pl

我想匹配出方括号里面的内容，有的行有一对[]，有的行有两个[]。如果只有一对[]，我用/\[(.+)\]/匹配，结果是我想要的。如果是两对[]，比如hypotheticalproteinTRIADDRAFT_56915[Trichoplaxadhaerens]>gi|190585137|gb|EDV25206.1|hypotheticalproteinTRIADD

本帖最后由看薄荷天空于2011-04-1519:20编辑我想提取部分网页中的ftp地址，写了如下脚本，可是在输出的时候，$1总是空的。#!/usr/bin/perlfor($i=34271;$i<34380;$i++){   &n

比如有一个PERL脚本a.pl接收参数1300118460执行：  ./a.pl1300118460如何在a.pl内部获取这个1300118460呢？