perl 多重hash的问题

gridbird

$hash{$a}{$b}{$c}

是要取得所有$c 位置的keys.
for example:

%hash = ();

$hash{1}{2}{3}=1;
$hash{1}{4}{3}=1;
$hash{1}{7}{4}=1;
$hash{1}{2}{5}=1;

已知 $a =1 ; 要取得$c位置的keys: 3, 4 ,5

map $_->{c}, values %{$hash{a}};

这个map需要两个已知变量$a和$c. 还是我没看懂？



回复 7# xiyoulaoyuanjia


   

xiyoulaoyuanjia

perl -e '$hash{1}{2}{3}=1;$hash{1}{4}{3}=1;$hash{1}{7}{4}=1;$hash{1}{2}{5}=1;foreach $c (3,4,5){@number=map $_->{$c}, values %{$hash{1}}; print @number};'
这样看可以不
回复 11# gridbird


   

gridbird

难道真的是我把hash的keys理解错了吗？ 呵呵
我要取的是第三重的key值，不是value

回复 12# xiyoulaoyuanjia


   

赛萌

回复 5# gridbird

为什么$hash{1}{2}{3}=1;等于1啊？？
   

substr函数

回复 14# 赛萌

$hash{1}{2}{3}=1
   

sunzhiguolu

1. #!/usr/bin/perl
   
2. use strict;
   
3. use warnings;
   
4. use 5.022;
   
5. 
   
6. my %hash;
   
7. $hash{1}{2}{3} = 1;
   
8. $hash{1}{4}{3} = 1;
   
9. $hash{1}{7}{4} = 1;
   
10. $hash{1}{2}{5} = 1;
    
11. 
    
12. for (keys %hash){
    
13.     say for map keys %{$_}, values %{$hash{$_}};
    
14. }

复制代码