perl替换文本

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

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

  1. #!/usr/bin/perl
  2. $_ = "
  3. abc
  4. ABC
  5. aaa
  6. AAA
  7. BBB
  8. bbb
  9. CCC
  10. ccc
  11. AAA
  12. ";
  13. s/AAA/123/;
  14. print "$_\n";

2 Comments

  1. 支持一下学php的朋友

  2. 哇,学php,还学perl噢!