請問如何刪除指定區塊？

inmolee

UID: 22938
帖子: 2
积分: 4
在线时间: 10 分钟

11^# inmolee 发表于 2007-12-18 13:38

謝謝Lonki的解說,我的修改如下...........

open(FD, "/tmp/info.log") || die "$!\n";
open(NEW,">/tmp/info.log");
while (<FD>) {
undef $/;s/.*{[^}]*NAME=CCC[^}]*}//g;
print NEW $_;
}
close NEW;

Lonki

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

12^# Lonki 发表于 2007-12-18 13:39

QUOTE:

perl -ne '$/="";print unless /NAME=CCC/;'

大多数情况下, 这是个非常好的办法, 但....

如果相邻区域没有空行分割, 就会去掉多余的数据, 如:
A {
NAME=CCC
}
B {
NAME=BBB
}

ly5066113

UID: 41125
帖子: 34
积分: 78
在线时间: 1 小时

13^# ly5066113 发表于 2007-12-18 13:46

QUOTE:

原帖由 Lonki 于 2007-12-18 13:39 发表

大多数情况下, 这是个非常好的办法, 但....

如果相邻区域没有空行分割, 就会去掉多余的数据, 如:
A {
NAME=CCC
}
B {
NAME=BBB
}

谢谢指点！
稍做修改：
perl -ne '$/="}";print unless /NAME=CCC/;'

perljoker

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

14^# perljoker 发表于 2007-12-18 14:02

QUOTE:

原帖由 inmolee 于 2007-12-18 13:38 发表
謝謝Lonki的解說,我的修改如下...........

open(FD, "/tmp/info.log") || die "$!\n";
open(NEW,">/tmp/info.log");
while () {
undef $/;s/.*{[^}]*NAME=CCC[^}]*}//g;
print NEW $_;
}
...

有点汗……

[Copy to clipboard] [ - ]

CODE:

open(FD, "/tmp/info.log") || die "$!\n";
open(NEW,">/tmp/info.log");
undef $/;
$_=<FD>;
s/.*{[^}]*NAME=CCC[^}]*}//g;
print NEW;
close FD; close NEW;

这样就行了
$/已经undef了，就不存在多少行了

liang573728

UID: 38481
帖子: 162
积分: 372
在线时间: 1 天 12 小时

15^# liang573728 发表于 2007-12-18 14:07

直接
perl -ne 'print unless /NAME=CCC/;' urfile