perl替换文本

11月 16
Year 2008 小桥流水人家 Linux

还不知道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";
, Leave a comment

2 Comments

  1. charles On 11月 16th, 2008 / #1 Reply

    支持一下学php的朋友

  2. 西安之家 On 11月 16th, 2008 / #2 Reply

    哇，学php,还学perl噢！