用perl解决问题思路

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

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/, <FILE>;
• print "@list"."\n";

•  

 

                                              2011.08.26