用perl解决问题思路

ifuleyou

　　以下都是俺自己在学习中理解 重新认识到的，记录自己的点滴；
　　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