learning perl第5章練習題

原文發表於網易部落格 2010-11-16 13:39:42

learning perl第5章的練習題有點意料之外，雖然第5章講的是基本輸入輸出，但是實現習題時，還是花了我一段時間用來去前面幾個章節回顧了一下。呵呵，把數組知識也用進去了。

第1題：

   1:  #!perl -w

   2:  #tac

   3:  use strict;

   4:  use 5.10.1;

   5:  my @result;

   6:  #@ARGV=qw(test1.txt test2.txt);

   7:  while(<>){

   8:   chomp($_);

   9:   push (@result,$_);

  10:   }

  11:  while(@result){

  12:   say pop (@result);

  13:   }

第3題：

   1:  #!perl -w

   2:  sub printRuler{

   3:   if(@_ != 1){

   4:    print "should have one argument.\n";

   5:    return;

   6:    }

   7:   

   8:   my $index=1;

   9:   my $count=$_[0];

  10:   my $current=0;

  11:   

  12:   if( $count < 0){

  13:    $count =0;

  14:    }

  15:   

  16:   while($current <$count){

  17:    print "$index";

  18:    $index++;

  19:    if($index == 10 ){

  20:     print "0";

  21:     $index=1;

  22:     $current++;

  23:     }

  24:   

  25:    

  26:    }

  27:   print "\n";

  28:   }

  29:  sub printString{

  30:   &printRuler(5);

  31:   my $length=shift @_;

  32:   my $format="%${length}s\n";

  33:   while(@_){

  34:    printf $format,$_[0];

  35:    shift @_;

  36:    }

  37:   }

  38:   my @hi=qw(30 hello good-bye);

  39:   &printString(@hi);

2011-05-25 00:58

最近沒在看perl了,這個語言是個神奇的語言,同樣一個變數,放在不同的語境中,表達的意思就完全不一樣.必須每周都花點時間才能穩固對perl的理解和使用.否則容易忘掉.呃,至少比c,java之類的容易忘掉.