perl读取tgz文件

perl代码中应该如何读取tgz文件?

作者: dickgz1z 发布时间: 09-08

请大家帮忙看看这个问题,关于矩阵计算

求教一个算法,上次问过,但是还是没有搞清楚。比如有这样一个矩阵:sox  7.2  3.8  6.8  9.2  5.6sox  5.4  2.3  4.6  8.9  9.0so

作者: duziteng 发布时间: 09-08

POE::Wheel::Run::Win32模块,参数不能传递

发现POE::Wheel::Run::Win32有一个问题··不知道是模块的问题··还是我代码有问题,有参数就不能运行test.pl,没参数可以~~·不知道什么问题~~百思不得其解~~~望指教~~先上代码,代码如下:(和模块自带的例子一样··就是Program那里改了一下)usewarnings;  uses

作者: wfnh 发布时间: 09-08

请教一个标量转换为数组的问题

请教各位大侠:#!/usr/bin/perl-wusestrict;subread_file{      my(%conf_hash); &nb

作者: 小渔村 发布时间: 09-07

请教个slice和ref问题

@y=(1,2,3);$x=($y[1],$y[1]=$y[2])[0];print$x,"\n";@y=\(1,2,3);

作者: yybmsrs 发布时间: 09-07

请教perl从Mysql抽取数据:Mysql client ran out of memory

我用perl写了个抽取数据的小程序,在oracle,sqlserver数据库上抽数据,从来没遇到过问题。但是在mysql上,只要数据量过大的,就会报错,这次我要抽取的一张表,大约800M,然后就报错了:Mysqlclientranoutofmemorymy$dbh=DBI->connect($dsnname,$user,$pwd)orerr

作者: iuytr123 发布时间: 09-07

发现perl的正则表达式比grep的效率还高!?有没有搞错?

我自己写的perl正则,如下:#!/usr/bin/perl-wusestrict;die"$0musthave2args:REFILE\n"unless@ARGV==2;local$/=")\n";my$re=shift;my$file=shift;die"$fileisnotexist\n"unless-e$file;openmy

作者: gaochong 发布时间: 09-07

perl 表达式求助

请问这个表达式是什么意思($a=$b)+=3;执行的结果是,a=3,b没有赋值.请问这个表达式有什么意思,用于什么情况?谢谢

作者: soccer 发布时间: 09-07

问个有关perl贪婪匹配的问题

以下测试代码:my$sStr='justatestcanyoufindme';if($sStr=~/\s*([a-zA-Z]+)\s*/i){      print"matched[$1]\n";}my$sStr='abcdefgabcdefg';if($sStr=~/abc(.+

作者: qiuf 发布时间: 09-07

招聘职位:软件测试工程师 Perl,Shell

招聘职位:软件测试工程师[SoftwareTestEngineerinChongqing–Perl,ShellonHP-UX]招聘单位:上海惠普(HP)有限公司重庆分公司工作地点:重庆市沙坪坝区西永微电园HP大楼职位描述:        1、针对HP服务器搭建网络测试环境并执行软件测

作者: joshtu 发布时间: 09-07