关于复杂数据结构

m0925j

1. 
   
2. %hash;
   
3. $hash{'hash'}=(aa=>1,bb=>2);
   
4. foreach my $haha (keys $hash{'hash'})
   
5. {
   
6.         print $hash{'hash'}{$haha};
   
7.         print "\n";
   
8. }
   

复制代码

$hash{'hash'}不是一个hash吗？该怎么写才对呢
报错
Type of arg 1 to keys must be hash (not hash element) at 1.pl line 4, near "})"

hgneng

试试这样keys %{$hash{'hash'}}

alexru

$hash{'hash'}不是一个hash吗？
是个标量

m0925j

那应该怎么写才对呢，2楼的试了也不对
我希望有一个hash，它的某个key的value又是个数组或者hash，应该怎么写啊，谢谢

flw

http://svn.perlchina.org/trunk/POD2-CN/lib/POD2/CN/perlreftut.pod

hgneng

原帖由 m0925j 于 2007-1-29 14:51 发表
那应该怎么写才对呢，2楼的试了也不对
我希望有一个hash，它的某个key的value又是个数组或者hash，应该怎么写啊，谢谢

好像hash的value只能是简单类型或引用的，不像C语言中的struct

%sub_hash = (aa=>1,bb=>2);
$hash{'hash'}=\%sub_hash;
foreach my $haha (keys %{$hash{'hash'}})
{
        print $hash{'hash'}{$haha};
        print "\n";
}

alexru

#!/usr/bin/perl
use strict;
use warnings;

my %hash;
%{$hash{'hash'}}= (aa=>1,bb=>2);
foreach my $haha (keys %{$hash{'hash'}})
{
        print $hash{'hash'}{$haha};
        print "\n";
}

[ 本帖最后由 alexru 于 2007-1-29 15:21 编辑 ]

韦一笑

原帖由 m0925j 于 2007-1-29 14:51 发表
那应该怎么写才对呢，2楼的试了也不对
我希望有一个hash，它的某个key的value又是个数组或者hash，应该怎么写啊，谢谢

使用引用。。。

$hash{key}=\@array;
$hash{key}=\%hash2

m0925j

问题解决，thanks all

ulmer

In addition, perldoc perllol is good too.

in your case, the data structure is so called Hash of Hash (HoH)
just use "{,..}" as ref. to hash instead "(..)".

perl -MData::Dumper -e '%hash; $hash{'hash'}={aa=>1,bb=>2};print Dumper \%hash'

-- ulmer