全部博文（362）
发布时间：2013-03-02 19:22:49
直接贴出代码：点击(此处)折叠或打开my @numbers = qw(1 100 50 6 70 555 66 70 80 99 1 20 3);my @odd_digit_sum = grep { my $sum; $sum += $_ for split //;.........【阅读全文】
发布时间：2013-01-30 22:37:56
#!/usr/bin/perl#author: zhengsenlin#date: 2013-01-30#desc: test program fiveuse strict;use warnings;@ARGV = qw(a);while () {print;}......【阅读全文】
发布时间：2013-01-30 22:28:11
（一）单行注释： 以#开头的行都被perl认为是注释。但是有一个例外，perl程序的第一行是#开头的，他指定了perl程序的解释器。例如：#print 1； （二）多行注释：最常用的方法是使用 POD(Plain Old Documentations) 来进行多行注释。方法如下:=podcodes to co.........【阅读全文】
