perl的if else判断

perl的if及else判断,纯笔记.

  1. #!/usr/bin/perl
  2. $a=1;
  3. $b=2;
  4. if($b>$a){
  5.    print '$b gt $a'."\n"
  6. }else{
  7.    print '$b is not gt $a'."\n"
  8. }

任何标量都可以是if控制结构里的判断条件!

  1. #!/usr/bin/perl
  2. $a=1;
  3. $b=2;
  4. $RE=$b gt $a;
  5. if($RE){
  6.    print "ture\n"
  7. }else{
  8.    print "failed\n"
  9. }

如果$b大于$a,$RE为真值,输出true. 不else也可以继续if

  1. #!/usr/bin/perl
  2. $a=2;
  3. $b=2;
  4. $RE=$b gt $a;
  5. if($RE){
  6.    print "ture\n"
  7. }
  8. #}else{
  9. #   print "failed\n"
  10. #}
  11. if(!$RE){
  12.    print "failed\n"
  13. }

学习perl

脑袋里根深蒂固的perl代码难读,且固执的认为它能做的shell都能做,所以一直将perl拒之门外,直到近日才发现自己大错特错!
所以很识相的从头学习起! (perl语言入门)
perl6里的新特性 “say” 在5.01里面已经有了!

  1. #!/usr/bin/perl
  2. use 5.010;
  3. say "hello world"

对cpan有所耳闻,把基础性的东西学一学,然后再来好好的瞧瞧这个巨大的库!

准备学点perl来处理数据

真实恼火,等了N久等不到一本sed与awk(第二版),当当;亚马逊;蔚蓝;新华书店;全找遍了,竟然找不到..无奈上淘宝找了一本,等店主答复呢!
如果还不行,那就只能看perl了..手上刚好有一本perl入门,不过就是怕看shell,awk,sed,再来个perl,就全乱了…

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";
5 «12345