perl 哈希中的键值对为中文，如何查询

zmj9152

天津--- 天津市--- 和平区  河东区  河西区  南开区  河北区  红桥区  东丽区  西青
  津南区

如上所述，已将上述数据用散列储存，格式为@{$ref{'天津'}{'天津市'}},
现在要实现查询，
@a = @{$ref{'天津'}{'天津市'}},中文应该如何转换呢

b114213903

我在Windows平台，perl脚本用ANSI编码格式，可以直接输出。

1. #!/usr/bin/perl
   
2. my $ref={};
   
3. while(<DATA>){
   
4.         my ($pro,$cit,$are)=split (/\-+/,$_);
   
5.         $ref->{$pro}->{$cit}=[split /\s+/,$are];
   
6. }
   
7. 
   
8. print "@{$ref->{'天津'}->{'天津市'}}\n";
   
9. 
   
10. __DATA__
    
11. 天津---天津市---和平区  河东区  河西区  南开区  河北区  红桥区  东丽区  西青  津南区

复制代码

sunzhiguolu

1. #!/usr/bin/perl
   
2. use strict;
   
3. use warnings;
   
4. 
   
5. my %hData;
   
6. while (<DATA>){
   
7.         my @aKV = /[^\h\n-]+/g;
   
8.         $hData{$aKV[0]}{$aKV[1]} = [@aKV[2 .. $#aKV]];
   
9. }
   
10. 
    
11. print "@{$hData{'天津'}{'天津市'}}\n";
    
12. 
    
13. __DATA__
    
14. 天津---天津市---和平区  河东区  河西区  南开区  河北区  红桥区  东丽区  西青 津南区

复制代码

zmj9152

感谢两位的热心解答

zmj9152

1. use YAML;
   
2. 
   
3. my %ref;
   
4. while(<DATA>){
   
5.         my ($pro,$cit,$are)=split (/ /,$_);
   
6.        
   
7.       
   
8.         push @{$ref{$pro}{$cit}},$are;
   
9. }
   
10. 
    
11. print Dump(\%ref);#已将数据存入散列
    
12. 
    
13. print "@{$ref{'天津'}{'天津市'}}\n";#已实现输出，必须与push一行保持一致，同时用箭头或不用箭头
    
14. __DATA__
    
15. 天津 天津市 和平区
    
16. 天津 天津市 河东区
    
17. 天津 天津市 河西区
    
18. 天津 天津市 南开区
    
19. 天津 天津市 河北区
    
20. 天津 天津市 红桥区
    
21. 天津 天津市 东丽区
    
22. 天津 天津市 西青区
    
23. 天津 天津市 津南区

复制代码