-
自己写的package,要加这句吗our @ISA = qw(Exporter);看到lib下面的package很多都带这一句,自己封装了个package,是不是也应该加上?yakczh 时间:02-11 + 阅读全文
-
为啥提示 Use of uninitialized value in numeric ge (>=) atif(($fir<=$plus)&&($fir>=$minus))$fir $plus$minus这3个变量都有值ztj2247 时间:02-11 + 阅读全文
-
只显示出现两次的元素的疑问@crops=qw(wheatcornbarleyricecornsoybeanhay alfalfaricehaybeetscornhay);@duplicates=grep{$count{$_}==2} &nbbaoyu05 时间:02-11 + 阅读全文
-
perl中访问散列的键对应的值时候键到底需不需要引号括起来?[root@node254~]#perl%student=("Math"=>{"joe"=>95,"peter"=>100}, "Science"=>{"joe"=>100,"peter"=>80}aoma 时间:02-11 + 阅读全文
-
一个匹配替换,提示有错误,请指点,谢谢本帖最后由Ericzhao82于2011-02-1017:54编辑总说我这行语法错误,可是错在哪里了呀?请指点,谢谢syntaxerrorattransconf.plline15,near"s/<VirtualHost(\w+)/server\\{/g$line需求是将<VirtualHost*>替换为server{Ericzhao82 时间:02-10 + 阅读全文
-
map中如何实现正则替换比如@list=qw(perl5,php5);print"@list";@list=map{s/5/6/}@list;print"@list";复制代码我要把列表中5替换成6 如果写成yakczh 时间:02-10 + 阅读全文
-
寻求帮助呢!根据一个文件每行的部分内容提取另一个文件的序列!!!!新建文件夹.rar(35.3KB)下载次数:82011-02-1015:33实现功能:file1中fips1PMG_6若和file2中ACS_ake_6中的数字相同,则提取序列并保存。file2中剩下未匹配的序列也保存在另一个文件中。即两个文件_后面的数字若相同,序列保存在一个文件,其余序列保存在另一个文件!谢谢!perl应该可以实现,Learnperl 时间:02-10 + 阅读全文