求助perl读.gz文件
这里有一个all.gz压缩的文件，需要一行行读取，然后匹配。my$i=0;my$file="all.gz";open(IN,"gzip-dc$file|");while(<IN>){ $i++; if(/all/){ print$_,"\n"&nbs
作者: feiyue0908 发布时间: 05-28
请教：关于"Use of uninitialized value"
大家好，我最近在写Perl程序的时候遇到一个问题。这里写了一小段代码用来验证，麻烦请教一下，谢谢！#!/usr/bin/perl-wusestrict;my@array=qw/file1file2/; #定义两个文件foreach(@array
作者: hrbeu06ws 发布时间: 05-28
推荐没看过的都看看 illguts ，加深对 Perl 的了解
http://cpansearch.perl.org/src/RURBAN/illguts-0.36/index-14.htmlcpan上可不是只有模块而已，优秀的文档更是数不胜数。这篇illguts作为perlguts的补充，通过大量图表展示了Perl的数据结构，很有用。自从第一次看就再也离不了了在CPAN上被评为5星，但这里没人讨论这个我就冒昧给大家推荐下
作者: zhlong8 发布时间: 05-27
split 该如何使用？
在perl导入一个INFILE后 用逗号split@summands=split（/，/，<INFILE>)这个@summands数组里存的到底是什么？ 假设我的INFILE文件为：1，2，34，5，67，8，9
作者: chrisyan43 发布时间: 05-27
如何实现带子文件夹的批量文件复制
File::Copy使用这个模块，我写个单独的程序copy("filename","dir")dotie。。。执行这个程序是成功的。但是我放在我的大程序中用File::Find查找到文件名并给变量$file，dir也用变量$dir表示的可是执行copy($file,$dir) $dir中没有copy成功PS:我要复制的文件带有子文件夹，如何能批
作者: aishaoer 发布时间: 05-26
perl如何压缩多个文件夹成一个文件
比如我要同时压缩几十个文件夹，我把全部的路径写到一个文本里。然后执行一下脚本 30多个文件夹就都打成一个包了谢谢大家
作者: txh_zyy 发布时间: 05-26
文件句柄的问题
[root@test1youcz]#cateof.pl#!/usr/bin/perl#authyoucz201105026Maytwentith-sixthThursdayopen(DB,"emp.names")||die"Can'topenemp.names:$!";while(<DB>){ &nb
作者: youcz 发布时间: 05-26
Perl require 问题请教
catacl-lib.plmy$M='aa';subMain{ my$Msg='ThisisMyTest'; print$Msg;}1;
作者: mitmax 发布时间: 05-26
请教匹配文本开头的 ^ 怎么表示为“或者”的关系
比如。或者以ABC开头，或者以空格+ABC开头我不想写成^ABC|\s+ABC能否 ^\s+ABC？这样显然不对
作者: autumn_leaf 发布时间: 05-26
一条语句的效率问题
my@temp=($temp_str=~/.*vhosts\/(.*)\/htdocs.*/);这个语句的效率很低，加上他和不加他执行速度差了好多倍，有没有什么优化的办法
作者: cocowool 发布时间: 05-26