hash得value为hash,怎么打印第二层hash得values值？急请帮助！！

112003

UID: 12066
帖子: 136
积分: 312
在线时间: 1 天 1 小时

1^# 112003 发表于 2008-07-11 10:26

hash得value为hash,怎么打印第二层hash得values值？急请帮助！！

$hash1{$key1} -->$hash2

$hash2{$key2}-->value.如何才能输出第二层hash得values值?

结构如下：
hash                                                       |-----2222
|                         |------123--------------|-----3333
|------ab------------|------234--------------|-----4444
|                         |                            |------5555
|                         |
|                         |------345--------------|------6666
|                      |                               |------7777
|                      |
|                      |------456--------------|------8888
|                                                       |------9999
|
|                                                          |-----1111
|                         |------123--------------|-----5433
|------cd------------|------234--------------|-----4444
|                         |                            |------6543
|                         |
|                         |------345--------------|------6666
|                      |                               |------2345
|                      |
|                      |------456--------------|------6321
|                                                       |------9999
                                                            |-----2222
|                         |------123--------------|-----3333
|------ef------------|------333--------------|-----1111
|                         |                            |------5555
|                         |
|                         |------321--------------|------6666
|                      |                               |------2222
|                      |
|                      |------111--------------|------8888
|                                                       |------1111

如何在同一行打印输出2222，3333，4444，5555，6666，7777，8888，9999，1111，5433，4444，6543，6666，2345，6321，9999，2222，3333，1111，5555，6666，2222，8888，1111。

hwxo

UID: 27474
帖子: 193
积分: 443
在线时间: 2 天 2 小时

2^# hwxo 发表于 2008-07-11 10:53

数据结构。

apile

UID: 42255
帖子: 66
积分: 151
在线时间: 6 小时

3^# apile 发表于 2008-07-11 11:56

$hash1{$key1}{$key2}

hdc1112

UID: 2620
帖子: 83
积分: 190
在线时间: 9 小时

4^# hdc1112 发表于 2008-07-11 12:17

$hash1{$key1}{$key2}
恩，就是这个
hash1表示对一个hash表的引用，$hash1{$key1}取得一个value，这个value也是一个对hash的引用

cai120120

UID: 14089
帖子: 1
积分: 2
在线时间: 10 分钟

5^# cai120120 发表于 2008-07-11 21:04

#!/usr/bin/perl -w

use strict;
my $hash = {
    'ab' => {
        '123' => [ 2222, 3333 ],
        '234' => [ 4444, 5555 ],
        '345' => [ 6666, 7777 ],
        '456' => [ 8888, 9999 ],
    },
    'cd' => {
        '123' => [ 1111, 5433 ],
        '234' => [ 4444, 6543 ],
        '345' => [ 6666, 2345 ],
        '456' => [ 6321, 9999, 2222 ],
    },
    'ef' => {
        '123' => [ 3333, 1000 ],
        '234' => [ 1111, 5555 ],
        '345' => [ 6666, 2222 ],
        '456' => [ 8888, 1111 ]
    },
};
my (@dumper,%already_seen);

sub pretty_print {
    my $var;
    foreach $var (@_) {
        if ( ref($var) ) {
            print_ref($var);
        }
        else {
            print_scalar($var);
        }
    }
}

sub print_scalar {
    dumper_( $_[0] );
}

sub print_ref {
    my $r = shift;
    if ( exists( $already_seen{$r} ) ) {
        return;
    }
    else {
        $already_seen{$r} = 1;
    }
    my $ref_type = ref($r);
    if ( $ref_type eq "ARRAY" ) {
        print_array($r);
    }
    elsif ( $ref_type eq "SCALAR" ) {
        print_scalar($$r);
    }
    elsif ( $ref_type eq "HASH" ) {
        print_hash($r);
    }
    elsif ( $ref_type eq "REF" ) {
        print_ref($$r);
    }
    else {
        print "$ref_type (not supported)";
    }
}

sub print_array {
    my ($r_array) = @_;
    foreach my $var (@$r_array) {
        if ( ref($var) ) {
            print_ref($var);
        }
        else {
            dumper_($var);
        }
    }
}

sub print_hash {
    my ($r_hash) = @_;
    my $key;
    foreach $key ( sort keys %$r_hash ) {
        my $val = $$r_hash{$key};
        $val = ( $val ? $val : '""' );
        if ( ref($val) ) {
            print_ref($val);
        }
        else {
            dumper_($val);
        }
    }
}

sub dumper_ {
    push @dumper, $_[0];
}
pretty_print($hash);
print join ',', @dumper;

cai120120

UID: 14089
帖子: 1
积分: 2
在线时间: 10 分钟

6^# cai120120 发表于 2008-07-11 21:06

Advanced Perl Programming, 2nd Edition