1

我正在尝试从 perl 中的 sub 获取 2 个不同的哈希值。哈希在 sub 的输出中混合在一起。这是我的简化代码：

#!/usr/bin/perl

use strict;
use warnings;

sub sub1 {
    my (%h1, %h2);
    $h1{'1a'}++;
    $h1{'1b'}++;
    $h2{'2a'}++;
    $h2{'2b'}++;
    while ( (my $key, my $value) = each %h1 ){
        print "key: $key, value: $value\n";
    }
    print "\n";
    return (%h1, %h2);
}

my (%r1, %r2) = sub1();
while ( (my $key, my $value) = each %r1 ){
    print "key: $key, value: $value\n";
}

输出：

key: 1b, value: 1
key: 1a, value: 1

key: 1b, value: 1
key: 2a, value: 1
key: 2b, value: 1
key: 1a, value: 1

为什么会这样？我该如何纠正？谢谢。

4

2 回答 2

10

Perl 将您的两个哈希合并为一个并将它们存储在您的%r1变量中，除非您从子例程返回引用，否则这种情况总是会发生。

sub sub1 {
    my (%h1, %h2);
    $h1{'1a'}++;
    $h1{'1b'}++;
    $h2{'2a'}++;
    $h2{'2b'}++;
    while ( (my $key, my $value) = each %h1 ){
        print "key: $key, value: $value\n";
    }
    print "\n";
    return (\%h1, \%h2); # \(backslash) creates a hashref
}

然后您需要将这些引用存储在标量变量中：

my ($r1, $r2) = sub1(); # scalar variables with references to %h1 and %h2

# use %{ } to put $r1 in hash context
while ( (my $key, my $value) = each %{ $r1 } ){
    print "key: $key, value: $value\n";
}

# prints 
# key: 1b, value: 1
# key: 1a, value: 1

# key: 1b, value: 1
# key: 1a, value: 1
于 2013-07-12T14:13:51.357 回答
2

您可能应该阅读参考资料。

Perl 子例程可以接受参数列表，也可以返回一个列表。例如，如果我这样做：

array_sub ( @a, @b );

sub array_sub {
    return print join ( ": ", @_ ) . "\n";
}

您会注意到，传递的两个数组将合并到一个参数列表中，而没有任何方法可以判断一个列表的开始位置和另一个列表的结束位置。

哈希也会发生类似的事情：

array_sub ( %a, %b );

sub array_sub {
    return print join ( ": ", @_ ) . "\n";
}

这会将两个散列（及其键）合并到一个列表中，然后传递给子例程。

为了解决这个限制，您可以使用基本上是标量值的引用，这些值指向您的实际数组或哈希所在的内存位置：

array_sub { \@a, \@b );

sub array_sub {
    my $ref_a = shift;
    my $ref_b = shift;
    my @sub_a = @{ $ref_a };
    my @sub_b = @{ $ref_b };

在上面，我在数组前面放了一个反斜杠来获取对数组的引用。为了取消对它们的引用（即把它们转回数组），我把@{...}引用放在了周围。

您必须在代码中执行类似的操作：

my ($r1, $r2) = sub1();   #Returns references;
my @r1 = @{ $r1 };   #dereference
my @r2 = @{ $r2 };   #dereference

在你的子程序中：

sub sub1 {
    ...
    return \%h1, \%h2;
于 2013-07-12T14:43:26.807 回答