my@names=qw/fredbarneybettydinoWilmapebblesbam-bamm/;my$result=&which_element_is(“dino”,@names);subwhich_element_is{my($what,@array)=@_;foreach(0..$#array){#@array元素的索引if($w

client(tcl实现)使用xmlrpc和server(perl实现)通信时收到如下错误，请哪位帮忙看一下什么意思？我只负责client的实现，不懂perl。谢过了Can'tusestring("[email protected]")asaHASHrefwhile"strictrefs"inuseatBugzilla/WebService/User.pmline45.

大家好：在php和js中都有类似preg_match(stringpattern，，)这样的方法，可以在pattern中自定义比如/i/s等参数。请问在perl下有类似的方法吗？能让下面的测试程序work$xx="helloworld";$reg='/(HelLo)/i';print$1if($xx=~$reg);谢谢各位

请问谁用过Bioperl啊？我用其中的去除比对空位的模块，输出的结果是这样的>300090001|2010/1-324，序列并没有变化，只是名称上后面多了/1-324，请问这是什么意思啊？谢谢！

useTk;useTk::HList;subicmd{  my($path,$state)=@_;  print"pathis'$path',sta

鄙人菜鸟一只，诚心求教：^$\n^\n$\n^$有什么区别？在VIM里消除文件空行时，三个操作的结果不一样。求高人解答~谢谢。

才学习perl不久，看到一份代码如下写法，for($argvcnt=0;$argvcnt<@ARGV&&$ARGV[$argvcnt]=~/^-(.*)/;$argvcnt++){  if($ARGV[$argvcnt]=~/^-\z/)

刚开始学习perl，求CGI::Ajax的教程或有参考价值的实例谢谢

如果像其他语言就丢在某个目录直接use或include就比较爽了不用make...啥的,不知道perl为什么要这么设计..因为有些模块是C写的还是其他原因,初学perl,各位指点下，谢谢

$handle="000";foreach(1..100){    open($handle++,">Cluster$_");}这个方法在声明了usestrict;后，会提示出错，去掉这个声明，则可以创建，不过这样貌似不规范吧，有么有什么好的方法，解决提出的问题。而且，在后期，需要能随便调用文件的句柄，对相对应的文件进行写入数据