#! /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";