perl语言入门第四版第五章习题

1.写一个程序,类似于 cat,但保持输出的顺序关系。如果运行此程序:./tac fred barney betty, 输出将是文件 betty 的内容,从最后一行到第一行,然后是 barney, 最后是 fred, 同样是从最后一行到第一行。 (注意使用 ./确保调用的是你自己的程序,而非系统提供的)

 

我的第一个想法是将每一行输入到数组，然后再从数组输出：

#!/usr/bin/perl -w
my@arr;
while(<>){
   unshift @arr,$_;
}
print @arr;

 

一次将所有文件都输入到数组里不是个好方法，于是改成每次一个文件：

#!/usr/bin/perl -w
my $file=pop@ARGV;
while($file){
open FILE,"$file";
@arr=<FILE>;
chomp @arr;
printf "%s\n"x@arr,reverse@arr;
$file=pop@ARGV;
}

 

如果碰到大文件这也不个好办法，一时想不出招了。

 

2.写一个程序,要求用户在不同的行中输入一些字符串,将此字符串打印出来,规则是:每一条占 20 个字符宽度,右对齐。 为了确保正确的输出,在开头打印出一串数字作为比较(帮助调试) 。注意,不要犯 19 个字符宽度的错误。例如,如果输入,hello, good-bye,则输出为:
123456789012345678901234567890123456789012345678901234567890
                                     hello
                             good-bye

3.修改上一个程序,允许用户选择宽度,如,用户输入 30,hello, good-bye(在不同的行中),则每一行的宽度为 30。提示,如果选择的宽度太长,可以增加比较行的长度。

 

#!/usr/bin/perl -w
chomp(@lines=<STDIN>);
my $len=shift@lines;
print "\n".("1234567890"x($len/10+1))."\n";     ＃根据输入长度来调整比较行长度
printf "%${len}s\n"x@lines,@lines;