如何用perl 删除匹配行啊。

lylzgq

UID: 75
帖子: 62
积分: 142
在线时间: 5 小时

1^# lylzgq 发表于 2007-12-07 20:17

如何用perl 删除匹配行啊。

如题
cat info.txt
aa
bb
cc
如何删掉含aa的这行。
我的linux 版本不同，不能用sed -i 命令。请问用perl 怎么做。

ocean390

UID: 13725
帖子: 3
积分: 6
在线时间: 10 分钟

2^# ocean390 发表于 2007-12-07 20:59

perl -i -ne 'next if /aa/;print;' info.txt

hdksky

UID: 33638
帖子: 96
积分: 220
在线时间: 12 小时

3^# hdksky 发表于 2007-12-08 09:54

s/\baa\b//g

lylzgq

UID: 75
帖子: 62
积分: 142
在线时间: 5 小时

4^# lylzgq 发表于 2007-12-09 21:57

多谢谢楼上二位,买了本书刚看到这里.

minewhy

UID: 35350
帖子: 36
积分: 82
在线时间: 1 小时

5^# minewhy 发表于 2007-12-10 15:54

grep -v "aa" info.txt

xp20683

UID: 8763
帖子: 96
积分: 220
在线时间: 12 小时

6^# xp20683 发表于 2007-12-10 16:24

my $strTemp = "";
open(FILE,"<file_name");
while(<FILE>)
{

if(/aa/) #先指定删除第二行
{
#先删除指定行（用空替换）
$_ =~ s/^\w*$//g;
#再删除空行（用空替换）
$_ =~ s/^\s*$//g;
}
$strTemp = $strTemp.$_;
}
open(FILE,">file_name")
print FILE $strTemp;
close FILE;