摘要:1. 习题 2. 代码与输出cat_reverse.pl1#-----------------------------------------------------------#2#Source:LearningPerl,chapter5,exercise-13#Date:2012-01-154#Author:xiaodongrush5#-----------------------------------------------------------#6use5.010;7while(<>){chomp;unshift@array,$_;}8foreach(@array){s 阅读全文
posted @ 2012-01-15 12:27 xiaodongrush 阅读(369) 评论(0) 推荐(0) 编辑