用perl解决问题思路

概述以下都是俺自己在学习中理解 重新认识到的，记录自己的点滴；  1》 以前不会用perl，查某个字符出现次数，现在会了； 思路：正则   if   ++  2》  以前不会在某两个字符间添加字符，现在会了； 思路：if 正则 替换  捕获  $1 $2    /()()/$1()$2/g  3》在看到用数组创建hash ，对hash键值输出，才发现以前自己理解错了； #!/usr/bin/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:[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

总结

以上是内存溢出为你收集整理的用perl解决问题思路全部内容，希望文章能够帮你解决用perl解决问题思路所遇到的程序开发问题。

如果觉得内存溢出网站内容还不错，欢迎将内存溢出网站推荐给程序员好友。