关于perl处理文本的问题高手请指点，不胜感激，谢谢

royce

请问如何在文档中某指定语句下插入句子？如：我有个文档叫mylove，内容如下
I love linux
I love perl
and I love $$

我现在想把I love MM插入I love perl 下成为
I love linux
I love perl
I love MM
and I love $$
请问该如何操作？

doudoudu

首先要打开这个文本文件open (OUT,“”"路径/文件名")
然后读其中的每行文本($_)
如果匹配到“”"I love perl"这行文本
然后就print OUT "I love MM\n"
然后退出读文本的循环
最后关闭文本文件close (OUT)即可

royce

谢谢，回去就试试

doudoudu

#!/usr/bin/perl

my $file= "./love.txt";
my $filemm= "./lovemm.txt";
open (IN,"$file");
open (OUT,">$filemm");
while (<IN>) {
        my $line = $_;
        print OUT $line;
        chomp($line);
        if ($line =~/I love perl/) {
                print OUT "I love MM\n";
        }
}
close OUT;
close IN;

royce

thanks very much,and i will try it now

cclnw

看看用shell的高效办法:
只要运行一条命令
sed '/perl/ a\I love MM' mylove>mylove.new