这里有一个all.gz压缩的文件，需要一行行读取，然后匹配。my$i=0;my$file="all.gz";open(IN,"gzip-dc$file|");while(<IN>){  $i++;  if(/all/){    print$_,"\n"&nbs

大家好，我最近在写Perl程序的时候遇到一个问题。这里写了一小段代码用来验证，麻烦请教一下，谢谢！#!/usr/bin/perl-wusestrict;my@array=qw/file1file2/;  #定义两个文件foreach(@array

http://cpansearch.perl.org/src/RURBAN/illguts-0.36/index-14.htmlcpan上可不是只有模块而已，优秀的文档更是数不胜数。这篇illguts作为perlguts的补充，通过大量图表展示了Perl的数据结构，很有用。自从第一次看就再也离不了了在CPAN上被评为5星，但这里没人讨论这个我就冒昧给大家推荐下

在perl导入一个INFILE后  用逗号split@summands=split（/，/，<INFILE>)这个@summands数组里存的到底是什么？  假设我的INFILE文件为：1，2，34，5，67，8，9

File::Copy使用这个模块，我写个单独的程序copy("filename","dir")dotie。。。执行这个程序是成功的。但是我放在我的大程序中用File::Find查找到文件名并给变量$file，dir也用变量$dir表示的可是执行copy($file,$dir)  $dir中没有copy成功PS:我要复制的文件带有子文件夹，如何能批

比如我要同时压缩几十个文件夹，我把全部的路径写到一个文本里。然后执行一下脚本  30多个文件夹就都打成一个包了谢谢大家

[root@test1youcz]#cateof.pl#!/usr/bin/perl#authyoucz201105026Maytwentith-sixthThursdayopen(DB,"emp.names")||die"Can'topenemp.names:$!";while(<DB>){    &nb

catacl-lib.plmy$M='aa';subMain{  my$Msg='ThisisMyTest';  print$Msg;}1;

比如。或者以ABC开头，或者以空格+ABC开头我不想写成^ABC|\s+ABC能否  ^\s+ABC？这样显然不对

my@temp=($temp_str=~/.*vhosts\/(.*)\/htdocs.*/);这个语句的效率很低，加上他和不加他执行速度差了好多倍，有没有什么优化的办法