Perl语言入门习题_第五章

1．[7] 写一个程序，类似于cat，但保持输出的顺序关系。（某些系统的名字可能是tac。）如果运行此程序：./tac fred barney betty, 输出将是文件 betty的内容，从最后一行到第一行，然后是barney, 最后是 fred, 同样是从最后一行到第一行。（注意使用 ./确保调用的是你自己的程序，而非系统提供的）
2．[8]写一个程序，要求用户在不同的行中输入一些字符串，将此字符串打印出来，规则是：每一条占 20个字符宽度，右对齐。 为了确保正确的输出，在开头打印出一串数字作为比较（帮助调试）。注意，不要犯19个字符宽度的错误。例如，如果输入，hello, good-bye，则输出为：
123456789012345678901234567890123456789012345678901234567890
               hello
            good-bye
3．[8]修改上一个程序，允许用户选择宽度，如，用户输入 30，hello, good-bye(在不同的行中)，则每一行的宽度为 30。（提示：参阅第二章相应部分）。提示，如果选择的宽度太长，可以增加比较行的长度。

#!/usr/bin/perl

use strict;

    my $input;
    while(defined($input=<>))
    {
        printf $input;
    }

#!/usr/bin/perl

use strict;

    my @array = <STDIN>;
    print "1234567890"x4;
    print "\n";
    foreach(@array)
    {
        printf "%20s",$_;
    }

#!/usr/bin/perl

use strict;

    my @array = <STDIN>;
    my $long = shift @array;
    print "1234567890"x10;
    print "\n";
    foreach(@array)
    {
        printf "%*s",$long+1,$_;
    }