Linux · 2008-11-16

perl替换文本

还不知道perl处理文本这么方便哦。。。

如果是替换掉所有的AAA,那就是
s/AAA/123/g;
咋样,方便吧。。。。
但是执行后perl只是把结果打印在屏幕,保存到新的文件就要
perl perl.pl > new.txt

#!/usr/bin/perl
$_ = "
abc
ABC
aaa
AAA
BBB
bbb
CCC
ccc
AAA
";
s/AAA/123/;
print "$_\n";