Perl 中级教程 第5章课后习题

5. 9. 1. 练习1 [5 分钟]
先不要运行程序, 看看你能否判断出这程序的哪部份出了问题？如果你看不出
来, 就可以运行一相程序, 得到些暗示, 来看是否能修改好：
my %passenger_1 = {
name => 'Ginger',
age => 22,
occupation => 'Movie Star',
real_age => 35,
hat => undef,
};
my %passenger_2 = {
name => 'Mary Ann',
age => 19,
hat => 'bonnet',
favorite_food => 'corn',

};
my @passengers = (\%passenger_1, \%passenger_2);

花括号是匿名hash索引的，因此这里应该是小括号

5. 9. 2. 练习2 ［ 40 分钟］
教授的数据文件（注意早先这章提到的）叫coconet.dat , 保存在O'Reilly 的网

站上, 你可以下载.有些行可能被注释了一些行（用前导＃号）;跳过这些行.（就

是说, 你的程序可以跳过他们, 不过你阅读这些行还有很有益的！）

修改一下这章的那段程序, 使每个源主机显示所有从它那里输出的字节数.以字

节数从大到小排.对于每一组中, 以所有目标主机, 也以传输到此目标主机的字

节数以大到小排。

其最终的结果就是列出传输最多的源主机, 然后以此源主机为组, 接收最多的目

标主机排在最前。教授可以以此报表来重新安排网络效率.