Chinaunix首页 | 论坛 | 博客
  • 博客访问: 630957
  • 博文数量: 79
  • 博客积分: 2671
  • 博客等级: 少校
  • 技术积分: 1247
  • 用 户 组: 普通用户
  • 注册时间: 2010-04-02 15:26
个人简介

宅男

文章分类

全部博文(79)

文章存档

2017年(11)

2016年(12)

2015年(6)

2012年(10)

2011年(33)

2010年(7)

发布时间:2017-02-17 14:24:20

1my @lines = (); while (<>) {        push @lines, $_; }@lines = reverse @lines;foreach my $a (@lines) {        print $.........【阅读全文】

阅读(411) | 评论(0) | 转发(0)

发布时间:2017-02-17 14:09:55

1-3.sub total {        my $sum = shift @_;         foreach $a (@_) {                $sum.........【阅读全文】

阅读(430) | 评论(0) | 转发(0)

发布时间: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.........【阅读全文】

阅读(434) | 评论(0) | 转发(0)
给主人留下些什么吧!~~

hunterzy4162011-04-30 13:36

mournjust

回复  |  举报
留言热议
请登录后留言。

登录 注册