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

perljoker

UID: 30669
帖子: 88
积分: 202
在线时间: 10 小时

11^# perljoker 发表于 2007-09-18 16:13

[Copy to clipboard] [ - ]

CODE:

]$ cat test.txt
&test5500|20070917|20070917
1111111111111|11111111111111111111|20070927|2000|1
2222222222222|22222222222222222222|20070927|2000|1
3333333333333|33333333333333333333|20070927|2000|1
4444444444444|44444444444444444444|20070927|2000|1
5555555555555|55555555555555555555|20070927|2000|1
6666666666666|66666666666666666666|20070927|2000|1

[Copy to clipboard] [ - ]

CODE:

]$ perl -we '
use strict;
open(FN,"test.txt");
while(<FN>){
next if /\&test/;
print;
}
'
1111111111111|11111111111111111111|20070927|2000|1
2222222222222|22222222222222222222|20070927|2000|1
3333333333333|33333333333333333333|20070927|2000|1
4444444444444|44444444444444444444|20070927|2000|1
5555555555555|55555555555555555555|20070927|2000|1
6666666666666|66666666666666666666|20070927|2000|1

perljoker

UID: 30669
帖子: 88
积分: 202
在线时间: 10 小时

12^# perljoker 发表于 2007-09-18 16:16

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

hutule110

UID: 7208
帖子: 177
积分: 407
在线时间: 1 天 18 小时

13^# hutule110 发表于 2007-09-18 16:21

QUOTE:

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

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

Lonki

UID: 21498
帖子: 1
积分: 2
在线时间: 10 分钟

14^# Lonki 发表于 2007-09-18 16:21

QUOTE:

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

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

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

zhaimeng

UID: 3479
帖子: 151
积分: 347
在线时间: 1 天 7 小时

15^# zhaimeng 发表于 2007-09-18 16:25

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

perljoker

UID: 30669
帖子: 88
积分: 202
在线时间: 10 小时

16^# perljoker 发表于 2007-09-18 16:25

QUOTE:

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

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

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

hutule110

UID: 7208
帖子: 177
积分: 407
在线时间: 1 天 18 小时

17^# hutule110 发表于 2007-09-18 16:26

QUOTE:

原帖由 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

UID: 30669
帖子: 88
积分: 202
在线时间: 10 小时

18^# perljoker 发表于 2007-09-18 16:42

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

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

zhaimeng

UID: 3479
帖子: 151
积分: 347
在线时间: 1 天 7 小时

19^# zhaimeng 发表于 2007-09-18 16:53

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