我记得可以把$/ 设置成undef 然后一次就读进内存里。。。连join都省了
在 2011-08-22 10:29:52，"钟声" <[email protected]> 写道： 之前也是逐行处理, 因为文件确实有点大(3M多). 但是逐行速度有点慢. join到一个字符串全局替换,虽然占用大量内存,但速度快. 2011/8/22 lichengjie<[email protected]> 逐行处理吧， 全部行join到一个字符串，文件大了效率会是个问题。 可以先chomp($line) 去掉换行符再做转换。 如果只是要过滤list2，有简单的方法 while ($line = <INFILE>) { next if ($line =~ /list2/); print OUTFILE $line; } 2011/8/22 钟声<[email protected]> 2011/8/20 zjf<[email protected]> 写成这样试一下。 /^list2\n$//img 或者/^list2\r\n$//img 这样写的话就什么也匹配不到了!! 不是很清楚为什么? -- 您收到此邮件是因为您订阅了 Google 网上论坛的“PerlChina Mongers 讨论组”论坛。 要向此网上论坛发帖，请发送电子邮件至[email protected]。 要取消订阅此网上论坛，请发送电子邮件至[email protected]。 若有更多问题，请通过http://groups.google.com/group/perlchina?hl=zh-CN 访问此网上论坛。 -- 您收到此邮件是因为您订阅了 Google 网上论坛的“PerlChina Mongers 讨论组”论坛。 要向此网上论坛发帖，请发送电子邮件至[email protected]。 要取消订阅此网上论坛，请发送电子邮件至[email protected]。 若有更多问题，请通过http://groups.google.com/group/perlchina?hl=zh-CN 访问此网上论坛。 -- 您收到此邮件是因为您订阅了 Google 网上论坛的“PerlChina Mongers 讨论组”论坛。 要向此网上论坛发帖，请发送电子邮件至[email protected]。 要取消订阅此网上论坛，请发送电子邮件至[email protected]。 若有更多问题，请通过http://groups.google.com/group/perlchina?hl=zh-CN 访问此网上论坛。 -- 您收到此邮件是因为您订阅了 Google 网上论坛的“PerlChina Mongers 讨论组”论坛。 要向此网上论坛发帖，请发送电子邮件至[email protected]。 要取消订阅此网上论坛，请发送电子邮件至 [email protected]。 若有更多问题，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问此网上论坛。 -- 您收到此邮件是因为您订阅了 Google 网上论坛的“PerlChina Mongers 讨论组”论坛。 要向此网上论坛发帖，请发送电子邮件至 [email protected]。 要取消订阅此网上论坛，请发送电子邮件至 [email protected]。 若有更多问题，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问此网上论坛。
