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

chinaab

　　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 的网
站上, 你可以下载.有些行可能被注释了一些行（用前导＃号）;跳过这些行.（就
是说, 你的程序可以跳过他们, 不过你阅读这些行还有很有益的！）
修改一下这章的那段程序, 使每个源主机显示所有从它那里输出的字节数.以字
节数从大到小排.对于每一组中, 以所有目标主机, 也以传输到此目标主机的字
节数以大到小排。
其最终的结果就是列出传输最多的源主机, 然后以此源主机为组, 接收最多的目
标主机排在最前。教授可以以此报表来重新安排网络效率.