勒色的Blog

版权声明：转载时请以超链接形式标明文章原始出处和作者信息及本声明
http://michaels.blogbus.com/logs/41184094.html

5.11练习

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

1:
#!/usr/bin/perl -w
#Date:2009-6-18
#<Leanning Perl 4th Edition> Exercise 5-1
print reverse <>;
2-3:
#!/usr/bin/perl -w
#Date:2009-6-18
#<Leanning Perl 4th Edition> Exercise 5-2
print "What column width would you like?";
chomp (my $width = <STDIN>);
print "Enter some lines, then press Ctrl+D:\n";
chomp (my @line = <STDIN>);
print "1234567890" x (($width+9)/10), "\n";
foreach (@line) {
printf "%${width}s\n", $_;
}