第五章：输入与输出

1)
use warnings;
#while(<>){
# chomp;
# push @array, $_;
#}
#while(@array){
# print pop @array,"\n";
#}
print reverse <>;

2)
use warnings;
my $format="1234567890" x 5 . "\n";
print "Plz enter any strings: \n";
chomp (my @array = <STDIN>);
print $format;
printf "%20s\n" x @array, @array;

3)
use warnings;
my $format="1234567890";
print "Plz enter any strings: \n";
chomp (my @array = <STDIN>);
print "Plz enter a number: ";
chomp (my $num = <STDIN>);
$format = $format x ($num/10+1);
print $format,"\n";
my $str = "%".$num."s\n";
printf $str x @array, @array;