Perl:YAML:Hash 如何选择条目？

Question

问候 Perl 专家

基于下面的 YAML 文件和这个例子 Perl:YAML iterate in the Array?有人可以给我一个 perl 示例，我可以在其中选择国家并打印出我去过的城市吗？

USA:
    BeenThere: [Miami, Denver, Las Vegas, Chicago]
    ToVisit:   [Los Angeles, Boston]
Europe:
    BeenThere: [Paris, Amsterdam, Dublin, Bulgaria, Madrid]
    ToVisit:   [Budapest, Belgrad]
Latam:
     BeenThere: [Venezuela, Bogota]
     ToVisit:   [Argentina, San Paulo]

非常感谢!

Answer 1

您想获取每个国家或特定国家的信息吗？

具体一个:

my $country_name = '...';
my $country = $data->{$country_name};
my $visited = $country->{BeenThere};
for my $city_name (@$visited) {
   say $city_name;
}

全部:

for my $country_name (keys %$data) {
   my $country = $data->{$country_name};
   my $visited = $country->{BeenThere};
   for my $city_name (@$visited) {
      say "$city_name, $country_name";
   }
}