以下都是俺自己在学习中理解 重新认识到的，记录自己的点滴； 

1》 以前不会用perl，查某个字符出现次数，现在会了；

思路：正则   if   ++ 

2》  以前不会在某两个字符间添加字符，现在会了；

思路：if 正则 替换  捕获  $1 $2    /()()/$1()$2/g 

3》在看到用数组创建hash ，对hash键值输出，才发现以前自己理解错了；

  1. #!/usr/bin/perl
  2. use strict;
  3. use warnings;
  4. ##Author: luyafei
  5. ##E-mail: chulianwang@qq
  6. ##Date: 2011.08.26
  7. my @people = qw{Fred barnay bamm-bamm wilma dion barnay Fred pebbles};
  8. my %count;
  9. $count{$_}++ foreach @people;
  10. if (%count) {
  11.    while ( ($key,$value) = each %count) {
  12.    print "$key => $value\n";
  13.    }
  14. } else {
  15.   print "That was'n a true value!\n";

}

4》 今天看Intermediate Perl  第一张讲到grep, 又返回看的小骆驼，才知道此grep比shell中的牛。它可以使用perl强大的正则，喜欢上它了。

  • #!/use/bin/perl
  • use strict;
  • use warnings;
  • ##author:luyaei
  • ##E-maile:[email protected]
  • ##date:2011.08.26
  • ##test 'grep' command;
  • open (FILE,"/root/4.txt") or die "can't read file:$!";
  • my @list = grep /&1=99/, ;
  • print "@list"."\n";
  •  

 

                                              2011.08.26