宅男
发布时间：2017-02-17 14:24:20
1my @lines = (); while (<>) { push @lines, $_; }@lines = reverse @lines;foreach my $a (@lines) { print $.........【阅读全文】
发布时间：2017-02-17 14:09:55
1-3.sub total { my $sum = shift @_; foreach $a (@_) { $sum.........【阅读全文】
发布时间：2017-02-17 14:07:47
之前写过perl的一个简单的程序。过了很久了，决定重新系统的开始学习一下perl。1.@lines = reverse (@lines = <STDIN>);print "output is \n @lines"2. @names = qw(fred betty dino wilma pebbles bamm-bamm);$number = $#names;@input.........【阅读全文】
