我想定义一个嵌套的hash循环从文件读入行每行的第一个分隔符号为key.后面的构造成另一个hash.first=>asecond=>bthird=c然后赋值给value最后打印出所有的keyvalue.下面是数据格式_DATA_1abc2def3cgi4bfg5ghi顺便问下面这个$HashTable{$key}

现在写了一个perl的脚本上传下载文件，但是速度要比直接使用ftp上传下载文件慢1个数量级。创建的语句如下：$ftp=Net::FTP->new($Para{FTP_IP},Debug=>0,Hash=>1,Passive=>1,Timeout=>10,BlockSize=>8192)请问这个和哪些因素相关呢？谢谢！

#!/usr/bin/perl#===============================================================================##      FILE:&n

请高手们推荐perl算法方面的资料，谢谢

open(DATA,"<log")||die("openfailed");@result=<DATA>;foreach(@result){chmop;split;$second=@line[1];$second=~s/,//g;print$second."\n";}catlog1a,b2cd3f,g我想得到

如果要匹配abcabcabc这样也就是说abc重复1-3次，要如何写呢？

包为以下：packageUtil::Mail;usestrict;usewarnings;useNet::SMTP;subnew{my($class,$mtahost,$mtaport)=@_;my$smtp=Net::SMTP->new('Host'=>$mtahost,'Port'=>$mtaport)||die"[WARN]Can't

本帖最后由paktc于2011-01-2011:27编辑在文本中，找出10行以内里面有"folder"也有"size"的段落。比如:QUOTE:foldersizefsafdsafsizedsfsdfolderfsasfsdfsd&nb

本帖最后由seufy88于2011-01-2011:10编辑我现在想写一个perl脚本,给我的邮件服务器发送大量的邮件进行测试.由于刚学perl,遇到了问题openSTDIN,"</path/to/cmd_input";system"telnetmail.abc.com25";while(<>){    &

如题