糟糕的:
my @Lines = qx(zcat $file);
foreach my $line(@Lines){
....
}
漂亮的：
open(FILE, '-|', "zcat -n '$file'");
while( <FILE> ){
my $line =$_;
...
}
前者会大量占用内存
常见问题
相关文章
猜你喜欢
- 调用perl,Mail::Sender模块发送邮件 2015-12-14
- perl遍历所有文件并修改或插入相关信息 2015-12-14
- 递归遍历文件夹统计文件的行数 2015-12-14
- 使用正则表达式找出不包含特定字符串的条目 2015-12-14
- 连接MySQL 读取表内容 2015-12-14
- Perl练习——九九乘法表 2015-12-14
- 多线程子域名 bruteforcer – dnsspider 2015-12-14
- Perl 列出所有 DBI 驱动程序 2015-12-14
- 自动从ftp下载文件（不回显输入密码） 2015-12-14
- Perl 添加 Windows 系统帐号 2015-12-14
