之前也是逐行处理, 因为文件确实有点大(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 访问此网上论坛。
