怎么用perl删除包含字符串的整行

perljoker

1. ]$ cat test.txt
   
2. &test5500|20070917|20070917
   
3. 1111111111111|11111111111111111111|20070927|2000|1
   
4. 2222222222222|22222222222222222222|20070927|2000|1
   
5. 3333333333333|33333333333333333333|20070927|2000|1
   
6. 4444444444444|44444444444444444444|20070927|2000|1
   
7. 5555555555555|55555555555555555555|20070927|2000|1
   
8. 6666666666666|66666666666666666666|20070927|2000|1
   

复制代码

1. ]$ perl -we '
   
2. use strict;
   
3. open(FN,"test.txt");
   
4. while(<FN>){
   
5.   next if /\&test/;
   
6.   print;
   
7. }
   
8. '
   
9. 1111111111111|11111111111111111111|20070927|2000|1
   
10. 2222222222222|22222222222222222222|20070927|2000|1
    
11. 3333333333333|33333333333333333333|20070927|2000|1
    
12. 4444444444444|44444444444444444444|20070927|2000|1
    
13. 5555555555555|55555555555555555555|20070927|2000|1
    
14. 6666666666666|66666666666666666666|20070927|2000|1
    

复制代码

perljoker

怎么看都感觉grep没错误，是不是换行有问题啊

hutule110

原帖由 perljoker 于 2007-9-18 16:16 发表
怎么看都感觉grep没错误，是不是换行有问题啊

他那是数组的存储的问题....

Lonki

原帖由 perljoker 于 2007-9-18 16:16 发表
怎么看都感觉grep没错误，是不是换行有问题啊

偶在Saloris & Windows测, 都没有问题.

估计LZ的@sp输入语句没有正确.

zhaimeng

@spp = grep !/111111/, @sp;  这个我测试也没有问题，真是奇了怪了

[ 本帖最后由 zhaimeng 于 2007-9-18 16:28 编辑 ]

perljoker

原帖由 hutule110 于 2007-9-18 16:21 发表

他那是数组的存储的问题....

那还是数组存储时，换行存储的问题啊
而且，也不一定要用数组存储啊
非如此不可？

hutule110

原帖由 hutule110 于 2007-9-18 16:11 发表
open(OUTPUTFILE, "file.txt") or die "Can't open this file";

my @output;
while () {
        my $lines = $_;
        push (@output,$_) if $lines !~ m#\&test#

}
open(INPUTFILE, ">file.txt") or die "Can' ...

我的代码达到你的要求了吗

perljoker

我的感觉就是，你自己把数据存入数组时出现了问题，至少换行那里
除非你给大家展示你赋值的语句
要么，大概没人能帮你吧

或者看偶的签名（偶签名不代表偶在CU的立场，偶拥有最终解释权）

zhaimeng

谢谢大家的帮助，问题解决了。 运用了perljoker的next if方法，做了相应的判断。：）