perl小程序

目的：将参数代表的文件中的内容正序和反序输出来

 

程序在one文件中，代码如下：

#! /usr/bin/perl
use strict ;
use warnings ;

my $count = 0 ;
my @contents ;
while (defined(my $line = <>)){
      $count += 1 ;
       push @contents , $line ;
       print  "$line" ;
}

print "===========reverse print================\n";

while(@contents>0){
    print(pop(@contents)) ;
}

 

 需要输出文件two里面的内容，two里面的内容如下：

#! /usr/bin/perl
use strict ;
use warnings ;

print  "123456789012345678901234567890\n";

while (defined($_ = <STDIN>)){
      print (" " x (20-length($_))) ;
      print $_ ;
      print "\n";
}

 

执行方式为： perl   one   two

 

执行结果如下：

#! /usr/bin/perl
use strict ;
use warnings ;

print  "123456789012345678901234567890\n";

while (defined($_ = <STDIN>)){
      print (" " x (20-length($_))) ;
      print $_ ;
      print "\n";
}
===========reverse print================
}
      print "\n";
      print $_ ;
      print (" " x (20-length($_))) ;
while (defined($_ = <STDIN>)){

print  "123456789012345678901234567890\n";

use warnings ;
use strict ;
#! /usr/bin/perl