第五章答案

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

=head1
print "\n----------------------------------ch_5_Q1_--------------------------\n";
#print reverse <>;
print "\n----------------------------------_--------------------------\n";
select STDIN;
my @single_quotation = <>;
print @single_quotation;
print "\n----------------------------------ch_5_Q1_--------------------------\n";
=cut

print "\n----------------------------------ch_5_Q2_--------------------------\n";
print "What column width would you like?, please input:";
chomp(my $width = <STDIN>);
print "Enter some lines, then press Ctrl-D:\n"; # or Ctrl-z
my @underscore;
chomp(@underscore = <STDIN>);
#@underscore = <STDIN>;
#print "\n"."1234567890"x7,"12345\n";
print "\n"."1234567890"x (($width + 9)/10),"12345\n";

=head1
foreach(@underscore){
    #print "$_"."\n";
    printf "%20s\n", $_;
}
=cut

my $semicolons = "%${width}s\n" x @underscore;
printf "$semicolons", @underscore;
print "\n----------------------------------ch_5_Q2_--------------------------\n";







自己的答案

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

print "\n-------------------------------------tac_-----------------------\n";
#foreach(@ARGV){
    my $file_number = $#ARGV;
    print $file_number;
    print "\n";
    foreach( reverse(0..$file_number) ){

       #foreach(<$ARGV[$_]>){
       #     print $_;
       #}
        print "$ARGV[$_]\n";
        my @lines;
        open TEMPFD, "< $ARGV[$_]" ;
        #@lines = <$ARGV[$_]>;
        @lines = <TEMPFD>;
        #print @lines;
        my $file_lines = $#lines;
       foreach( reverse(0..$file_lines) ){
            print $lines[$_];
       }
       close TEMPFD;
    }
#}
print "\n-------------------------------------tac_-----------------------\n";

























print "\n-------------------------------------_-----------------------\n";














print "\n----------------------------------_--------------------------\n";

原文地址：https://www.cnblogs.com/books2read/p/11004044.html