perl如何删除不匹配的行

laoheimao

想实现类似grep的功能,请问如何实现?

aaronvox

用循环不行吗?

如果非要一句话搞定  用sh

ulmer

原帖由 laoheimao 于 2006-7-24 10:48 发表
想实现类似grep的功能,请问如何实现?

Using perl buildin functions: grep, map + regex
perldoc -f grep
perldoc -f map

兰花仙子

原帖由 laoheimao 于 2006-7-24 10:48 发表
想实现类似grep的功能,请问如何实现?

perl内置了grep函数，效果跟shell的grep差不多的。

@newfile = grep { /regex/ } @contents;

文件很大的话，不要读进数组再grep，直接用循环：

while(<DATA>){
    print if /regex/;
}

hwxo

#!/usr/bin/perl
open (FL , "test.txt");
while ($line=<FL>)
{
next if  $line !~=/regex/;
print $line;
}

daafu

regex这是什么意思啊,傻傻的问

ulmer

原帖由 daafu 于 2006-7-26 22:36 发表
regex这是什么意思啊,傻傻的问

傻傻的回答: 就像 “玉米” he “粉丝" 团 => regex is short/nickname/alias name for regular expression

roywangt

正则表达式！

仙子说的对呀，perl里的grep功能占比较大的内存，如果文件大就一行行的读吧。