以下都是俺自己在学习中理解 重新认识到的,记录自己的点滴;
1》 以前不会用perl,查某个字符出现次数,现在会了;
思路:正则 if ++
2》 以前不会在某两个字符间添加字符,现在会了;
思路:if 正则 替换 捕获 $1 $2 /()()/$1()$2/g
3》在看到用数组创建hash ,对hash键值输出,才发现以前自己理解错了;
- #!/usr/bin/perl
- use strict;
- use warnings;
- ##Author: luyafei
- ##E-mail: chulianwang@qq
- ##Date: 2011.08.26
- my @people = qw{Fred barnay bamm-bamm wilma dion barnay Fred pebbles};
- my %count;
- $count{$_}++ foreach @people;
- if (%count) {
- while ( ($key,$value) = each %count) {
- print "$key => $value\n";
- }
- } else {
- 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