请教：查找文本中以关键字开头的行，并且在下面加一新行

kookies

UID: 4987
帖子: 193
积分: 443
在线时间: 2 天 2 小时

1^# kookies 发表于 2008-07-09 11:24

请教：查找文本中以关键字开头的行，并且在下面加一新行

查找文本中以<ID>开头的行，并且在这行下面新加一行
<title>=
请问怎么实现？

flw

UID: 21204
帖子: 144
积分: 331
在线时间: 1 天 4 小时

2^# flw 发表于 2008-07-09 11:33

为什么都喜欢把问题藏着掖着。
Perl 有处理 XML 的模块。
search.cpan.org 搜索一下。

kookies

UID: 4987
帖子: 193
积分: 443
在线时间: 2 天 2 小时

3^# kookies 发表于 2008-07-09 11:34

不是XML文件。。。

不死草

UID: 35536
帖子: 142
积分: 326
在线时间: 1 天 3 小时

4^# 不死草发表于 2008-07-09 11:42

那就找到匹配的开头，然后用2行替换一行啊。。。

zhasm

UID: 11992
帖子: 173
积分: 397
在线时间: 1 天 17 小时

5^# zhasm 发表于 2008-07-09 12:31

$_=~s/^(regex.*$)/\1newcontent/;

hdc1112

UID: 2620
帖子: 83
积分: 190
在线时间: 9 小时

6^# hdc1112 发表于 2008-07-09 12:40

##########################

perl -p -i.bak -w -e "s/$_/$_<title>=\n/ if(/^<ID>/);" test

##########################

test是文件名，shell里运行这个命令后，原来test备份到test.bak,test自己更新了