用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 => $valuen";
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:chulianwang@qq.com
• ##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