解决办法 下面是前面提出来的问题的解决方法，就是关于城市和国家名称的重新格式化。 1 my %table; 2 while (<>;) { 3 chomp; 4 my ($city, $country) = split /, /; 5 $table{$country} = [] unless exists $table{$country}; 6 push @{$table{$country}}, $city; 7 } 8 foreach $country (sort keys %table) { 9 print "$country: "; 10 my @cities = @{$table{$country}}; 11 print join ', ', sort @cities; 12 print "./n"; 13 } 这个程序分成两部分： 第 2--7 行完成数据的输入和数据结构的创建。 第 8-13 行分析这个数据并打印报告。我们设置了一个哈希 %table,它的键是国家名称，它的健值是这个国家名称对应的城市名的数组的'引用'。这个数据结构看起来如下： %table +-------+---+ | | | +-----------+--------+ |Germany| *---->;| Frankfurt | Berlin | | | | +-----------+--------+ +-------+---+ | | | +----------+ |Finland| *---->;| Helsinki | | | | +----------+ +-------+---+ | | | +---------+------------+----------+ | USA | *---->;| Chicago | Washington | New York | | | | +---------+------------+----------+ +-------+---+ 我们先来分析输出部分。假设我们已经拥有了这个结构，那么我们怎么来输出呢？ 8 foreach $country (sort keys %table) { 9 print "$country: "; 10 my @cities = @{$table{$country}}; 11 print join ', sort @cities; 12 print "./n"; 13 } %table是一个普通的哈希，我们从它这里可以取得一列键，对键进行排序，并遍历所有的键。这里唯一使用'引用'的是第10行。$table{$country} 查看了哈希中的键$country并取得它的值。这个健值是对应国家中的城市数组的'引用'。 使用规则 1 告诉我们可以通过使用 @{$table{$country}}来恢复整个数组。第10行就象 @cities = @array; 不同的是这里的数组的名字被'引用' {$table{$country}}所替代。符号 @ 告诉Perl去获取整个数组。得到了城市的列表后，我们照样对其进行排序，合并城市名，并打印出来。 第2-7行负责创建数据结构，如下： 2 while (<>;) { 3 chomp; 4 my ($city, $city; 7 } 第 2-4 行获取城市和国家的名称。第5行查看这个国家名称是不是已经作为一个键存放在哈希里面了，如果没有，程序就使用符号[] (创建规则 2)创建一个新的、空的匿名数组，同时把一个指向这个匿名数组的'引用'作为健值放到哈希里面去了。 第6行将城市名放到对应的数组里面。$table{$country} 现在保存了一个'引用'，它指向所对应的国家的城市的数组。第6行就象 push @array, $city; 不同的是这里的数组名被{$table{$country}}所替代。 命令 push 将城市名加到这个'引用'指向数组的最后。 这里有一个要点被我忽略了。第5行是不需要的。我们可以取掉它。 2 while (<>;) { 3 chomp; 4 my ($city, /; 5 #### $table{$country} = [] unless exists $table{$country}; 6 push @{$table{$country}}, $city; 7 } 如果在哈希 %table 中已经有这个国家名 $country的记录，那么，加不加第5行没有任何区别。第6行会自己定位到$table{$country}这个'引用'指向的数组，把值 $city 放到数组中去。但是如果在%table中没有那个键，比如Greece，那么它会怎么办呢？ 这是Perl，它会自己准确地完成工作。你想把一个athens赋值给一个不存在地数组，那么Perl会帮助你创建一个新的、空的匿名数组，将它放到哈希%table里面去,然后把值 athens 放到这个数组中。这个被称为'自动生成' --让事物自己自动产生出来。 Perl 发现在哈希里面没有这个键，就自动地创建了一个新的哈希记录。 Perl 发现你想要使用数组作为哈希的健值，它就自动创建一个匿名的空数组，并将指向这个数组的'引用'放到那个哈希中去。一般， Perl 创建的数组只有一个成员大小，用于保存这个新的城市名。
版权声明：本文内容由互联网用户自发贡献，该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容， 请发送邮件至 [email protected] 举报，一经查实，本站将立刻删除。
