将标量和散列传递给 Perl 中的子例程

Question

我编写了一个脚本，将 scalar 和 hash 数据传递到子例程中。

在传递一个 hash 时，我传递了一个引用，并在子例程内部在迭代时取消引用它（使用 foreach 循环）。

#!/usr/bin/perl
use strict; use warnings;
use Data::Dumper;

my %hash = (
                '1' => [ 'A', 'B', 'Z', 'A' ],
                '2' => [ 'C', 'D' ],
                '3' => [ 'E', 'E' ]
);

my $keyword = "my_test_keyword";
print_data($keyword, \%hash);
print "End of the Program\n";

sub uniq (@) {
    my %seen;
    my $undef;
    my @uniq = grep defined($_) ? !$seen{$_}++ : !$undef++, @_;
    @uniq;
}

sub print_data {
    my ($kw, $h) = @_;
    print "Keyword:$kw\n"; #my_test_keyword should be printed
    
    foreach my $key (sort keys %$h) {
        print "Key:$key\n";
        print "Value(s):", join('#', uniq @{%$h{$key}}), "\n";
    }
    return;
}

这是一个好方法还是我需要按原样传递 hash（没有引用）并在子例程中检索。

Answer 1

您不能将散列（或数组）传递给 sub，只能传递零个或多个标量。使用

f(%hash)

结果

f($key1, $hash{$key1}, $key2, $hash{$key2}, ...)

因此您必须在内部重新创建哈希。传递引用是一种常见且便宜得多的替代方法。

将标量和散列传递给 Perl 中的子例程

Pass scalar and hash to subroutine in Perl

perl

reference