learning perl第5章练习题

原文发表于网易博客 2010-11-16 13:39:42

learning perl第5章的练习题有点意料之外，虽然第5章讲的是基本输入输出，但是实现习题时，还是花了我一段时间用来去前面几个章节回顾了一下。呵呵，把数组知识也用进去了。

第1题：

#!perl -w
#tac
use strict;
use 5.10.1;
my @result;
#@ARGV=qw(test1.txt test2.txt);
while(<>){
 chomp($_);
 push (@result,$_);
 }
while(@result){
 say pop (@result);
 }

第3题：

#!perl -w
sub printRuler{
 if(@_ != 1){
  print "should have one argument.\n";
  return;
  }

 my $index=1;
 my $count=$_[0];
 my $current=0;

 if( $count < 0){
  $count =0;
  }

 while($current <$count){
  print "$index";
  $index++;
  if($index == 10 ){
   print "0";
   $index=1;
   $current++;
   }


  }
 print "\n";
 }
sub printString{
 &printRuler(5);
 my $length=shift @_;
 my $format="%${length}s\n";
 while(@_){
  printf $format,$_[0];
  shift @_;
  }
 }
 my @hi=qw(30 hello good-bye);
 &printString(@hi);

2011-05-25 00:58
最近没在看perl了,这个语言是个神奇的语言,同样一个变量,放在不同的语境中,表达的意思就完全不一样.必须每周都花点时间才能稳固对perl的理解和使用.否则容易忘掉.呃,至少比c,java之类的容易忘掉.