用perl解决问题思路
以下都是俺自己在学习中理解 重新认识到的，记录自己的点滴；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/, ;
[*]print "@list"."\n";
[*]
2011.08.26
页:
[1]