书上5章的练习题目

budong0000

5．11 练习
附录A 中有下列习题的答案：
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。（提
示：参阅第二章相应部分）。提示，如果选择的宽度太长，可以增加比较行的长度。

偶的思路：1，每行都放到list中，然后在输出。2，没有，3，没有。
欢迎大家讨论

tonghaiyu

小骆驼上的题目，当时有做过。
第一题，首先用@_的方式记录需要输入文件。然后用reverse @_ ，首先输出第一个参数，open IN,$firstfile;@data=<IN>; reverse @data; print @data;

第二题和第三题，我当时用了一个很笨的办法，首先用length记录字符的长度 length（$a）
然后 print "\s" x (20- length（$a）)；再print "$a\n";

我也是初学perl。方法很笨，期待高手指点精妙写法。

budong0000

2,3 好像是要输出格式 %20s
但不知具体怎么做？

blackold

书上不是答案吗？

blackold

LZ看的是中文版还是自己翻译的？

budong0000

中文版， 没答案。

blackold

这种中文版还是少看点吧，翻译的质量太差了。

HongLian3

试了一下第1题，程序如下：
===============================================
#!/usr/local/bin/perl -w
use warnings;
use strict;

my $filenum = scalar(@ARGV);

if( $filenum > 0)
{
  $filenum = $filenum -1;
  for(my $i=1;$i<=$filenum;i++)
  {
     open(IN,"ARGV[$i]");
     my @string = <IN>;
     @string = reverse @string;
     print @string;
  }
}
===============================================
在本机上测试了下，应该没问题。