請問如何在perl 給user 輸入一個絕對路徑目錄
本帖最后由 citiwang 于 2011-05-18 09:45 编辑 譬如說在 shell script 中是 echo "Please Input Work Dir ?" read addToPath 並判別該目錄是否有*.gz 檔案存在 把要做的指令加在$addToPath 前就能達成想要帶到的目錄 for i in $datatype do gzcat $addToPath/PM.$b.$fileday.*.xml.gz |grep $i >> $addToPath/$i.log done
作者: citiwang 发布时间: 05-18
perl正则替换第一次后如何再替换原始字符串（新手）
$_="huge dinosaur"; $_=~s/\w+$/($`!)$&/; my $a=$_; $_=~s/^(\w+\s+)/($`!)$&/; my $a2=$_; print "$_\n"; print "$a\n"; print "$a2\n"; 如何让第二次替换是基于huge dinosaur也就是最开始的字符串进行替换，而不是对于第一次替换后的字符串进行替换
作者: 落羽飘寻 发布时间: 05-18
请教高手，下面2种代码有什么区别！
while (1) { next if (scalar keys %CHILDREN > 0); } while (1) { if (scalar keys %CHILDREN > 0) { next; } }
作者: cnncc 发布时间: 05-17
IE 下载 文件扩展名被自动修改 tgz -> gz
IE 提供超链接下载的文件名是 *.tgz, 但下载时，却被IE自动改成*.gz。麻烦遇到同类问题的Perler给些建议，谢谢!
作者: marscld 发布时间: 05-17
perl 字符串非连续匹配
有2个字符串变量： $1 = '1,13,26,'; $2 = '1,12,13,15,26,79'; 因为1,13,26在变量$2里都有，所以$2匹配$1。 请教高手，这个正则表达式要怎么写？
作者: moluowangzi 发布时间: 05-17
Perl官方英文入门文档规整，基于最新的5.14.0版本。
基于最新的5.14.0版本。 欢迎加入Geek的Perl世界，这是官方入门文档的规整，来源于perldoc.perl.org。 好好学习Perl，改进自己的开发方式和态度，享受Perl的神奇吧。 Perl Tutorials.pdf (3.58 MB) 下载次数: 23 2011-05-17 15:55
作者: 2gua 发布时间: 05-17
perl 网络编程 高清 中文版
这可是超级经典的一本书，网上找了很久中文的，现在找到了，非常不错。 http://dl.dbank.com/c09iat9lis#
作者: iakuf 发布时间: 05-17
对文本处理，shell，sed，awk和perl那个性能好呢
目前需要准实时的对文件进行处理，然后入库，因为数据库性能已经不堪重负，因此在入库前对数据进行文件级别的过滤。 整个控制流程采用perl，但是对文件进行过滤是最耗时的工作，因此想问一下大虾门，采用shell，sed，awk和perl哪种对文本处理的性能会强悍一点。 主要的过滤功能如下： A文件是详单，B文件是维度，A文件根据B文件里面不存在的维度进行过滤。 如： A文件: A,DF...
作者: fikong2005 发布时间: 05-17
POD里面怎么加中文
perldoc perlpod查到说用=encoding命令，但是用了显示为XXXX: 下载 (14.85 KB) 2011-05-16 22:25 下载 (11.41 KB) 2011-05-16 22:25
作者: lululau 发布时间: 05-16