《perl 语言入门》习题 第五章

1

my @lines = ();

while (<>) {
        push @lines, $_;
}

@lines = reverse @lines;

foreach my $a (@lines) {
        print $a;
}

2.

printf "1234567890"x4;
printf "\n";
while (my $line = <>) {
        printf("%20s\n", $line);
}