perl 哈希赋值

FTDlinux

1. #!/usr/bin/perl -w
   
2. 
   
3. use strict;
   
4. use Data::Dumper;
   
5. $\ = "\n";
   
6. $, = "\t";
   
7. 
   
8. my $a = [10,20];
   
9. my $b = [20,30];
   
10. my $c = [30,40];
    
11. my %hash = (
    
12.         $a => 1,
    
13.         $b => 2,
    
14.         $c => 3,
    
15. );
    
16. 
    
17. print @$_ for (keys %hash);   #报错
    
18. 
    
19. my @a = (
    
20.         [10,20],
    
21.         [20,30],
    
22.         [30,40],
    
23. );
    
24. 
    
25. print @$_ for (@a);              #这里有结果
    

复制代码

完整代码如上，为什么上面报错了，是不是跟keys函数有关

zhlong8

hash 的 key 只能是字符串，如果不是会被自动转换。

slayercboy

回复 1# FTDlinux


keys函数返回的是键的array
不包含value

FTDlinux

回复 3# slayercboy
谢谢，不过我是需要返回要键的解引

   

FTDlinux

回复 2# zhlong8

有没有办法使得键能存入数组或者数组的引用

   

slayercboy

回复 5# FTDlinux


存入的是值啊
你取的是key
要对key取value才能用啊

比如@{$hash{$_}}

至于是引用还是匿名数组无所谓的

要注意区分哈希键和值的概念

FTDlinux

回复 6# slayercboy


    取key啊，你看懂代码的含义没啊！ 如二楼说的键只能为字符串！！over

Perl_Er

回复 5# FTDlinux

1.        keys HASH
   
2.                Returns a list consisting of all the keys of the named hash.
   
3.                (In scalar context, returns the number of keys.)
   

复制代码

slayercboy

回复 7# FTDlinux


我的错
没注意你是这么设计的。

我的话大概会用笨方法吧
建两个哈希什么的

cdtits

hash 的 key 要求是不可变的，貌似数组和字典都不符合要求吧