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 的網
站上, 你可以下載.有些行可能被注釋了一些行（用前導＃號）;跳過這些行.（就
是說, 你的程序可以跳過他們, 不過你閱讀這些行還有很有益的！）
修改一下這章的那段程序, 使每個源主機顯示所有從它那里輸出的字節數.以字
節數從大到小排.對于每一組中, 以所有目標主機, 也以傳輸到此目標主機的字
節數以大到小排。
其最終的結果就是列出傳輸最多的源主機, 然后以此源主機為組, 接收最多的目
標主機排在最前。教授可以以此報表來重新安排網絡效率.

轉載于:https://www.cnblogs.com/tjxwg/p/3375564.html

總結

以上是生活随笔為你收集整理的Perl 中级教程 第5章课后习题的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。