|
|
|
|
  请教！ - connili [ 2003-01-09 12:03 | 28 byte(s)]
Re: 请教！ - kiwen [ 2003-01-10 09:10 | 304 byte(s)]
Re: 请教！ - jeppeter [ 2003-01-09 19:31 | 575 byte(s)]
|
|
|
|
[Original]
[Print]
[Top]
|
你大概只要用一个
open(FILETOAPPEND,"<+fileappend");
open(FILETMP,">>tmpfile");
while(<FILETOAPPEND>)
{print FILETMP $_;
if(your condition)
print FILEHANDLE $yourstring;
}
while(<FILETMP>)
{
print <FILETOAPPEND> $_;
}
这上面这个就是把一个文件的内容导出到这个tmpfile中，再在你先前设定好的条件满足时，插入$yourstring就可以了，再把这个临时文件写回去就可以了
|
|
|
[Original]
[Print]
[Top]
|
|
[Original]
[Print]
[Top]
|
插入一行作为文本的第$line_num行:
perl -pi -e 'print "hello world
" if $.==$line_num;' filename
在匹配pattern的一行之前插入一行:
perl -pi -e 'print "hello world
" if /pattern/;' filename
如果需要在之后插入一行,需要将p参数改成n并修改指令,可以测试一下
|
|
|
[Original]
[Print]
[Top]
|
|
« Previous thread
请教！ |
Perl 编 程
第10页 |
Next thread »
小弟的新作品 |
|
声明: 本页内容为中国Linux论坛的内容镜像，文章的版权以及其他所有的相关权利属于中国Linux论坛和相应文章的作者，如果转载，请注明文章来源及相关版权信息。