如何在perl中以CSV格式打印hash[of hashes]*的散列

Question

我想打印一个散列的散列(具有不可定义的深度)作为CSV。

假设我有一个由foo、bar、cars等组成的结构，其中最深散列的键指向一个数字标量。

我想把这个结构打印成这样：

foo1;bar1;car1;345
foo1;bar1;car2;25347
foo1;bar2;car1;23
foo2;bar1;car1;863
......
......

有没有人知道如何做到这一点，当你不知道哈希结构的深度（也可能有额外的火星和战争等）？

到目前为止我试过什么？

sub print_csv {
    my $subj = shift;
    if ( ref($subj) eq "HASH" ) {
        for ( keys $subj ) {
            print "$_;";
            print_csv( $subj->{$_} );
        }
    }
    else {
        print "$subj\n";
    }
}

这是我的大致想法，但是哈希的键在第一个之后不会重复。

提前感谢！！！

编辑< br >我已经在使用perl 5.14。我的问题是，散列的关键字在第一次出现后不会重复。我当前的输出如下所示:

foo1;bar1;4
foo2;bar2;12060
bar3;24
bar1;152
foo3;bar3;1
bar1;815

fo2有3个小节（bar1、bar2、bar3），但它的名称“fo2”在第3行和第4行中没有重复。fo3也是如此。它有两个小节（bar1和bar3），但它的名称“fo3”在第6行中缺失。

Answer 1

明白了，我想这就是你想要的：

sub print_csv {
    my $subj = shift;
    my $prefix = shift || "";
    if ( ref($subj) eq "HASH" ) {
        for ( keys %$subj ) {
            print_csv( $subj->{$_}, $prefix ."$_;");
        }
    }
    else {
        print "$prefix$subj\n";
    }
}

数据：

my %hash = ();
my %hash2 = ();
my %hash3 = ();

$hash3{"test3Key"}="test5";
$hash2{"test2Key"}=\%hash3;
$hash2{"test2Key2"}="test2Key2Value";
$hash{"testSimpleKey"} = "test2";
$hash{"testHashRefKey"}=\%hash2;

结果：

testSimpleKey;test2
testHashRefKey;test2Key;test3Key;test5
testHashRefKey;test2Key2;test2Key2Value