Question

我正在尝试使用哈希和子例程准备一个小脚本。老实说我是perl的新手。有人可以告诉我下面的代码有什么问题。我得到不能使用字符串（“1”）作为HASH引用错误。

#!/usr/bin/perl
use strict;
use warnings;
no warnings 'uninitialized';

use Data::Dumper;
my %match_jobs;

push @{ $match_jobs{'1'}} , {'job_id'=>'13', 'job_title'=>'Article_9',     'job_description'=>'899.00'};

hash_iterate(\%match_jobs);


sub hash_iterate{
my $job_match=@_;
print Dumper($job_match);
foreach my $match_job_row (keys %$job_match) {
  my $job_id_ll=$job_match->{$match_job_row}->{'job_id'};
  print $job_id_ll;
}

}

输出： - 在perl-hash.pl第17行使用“strict refs”时，不能使用字符串（“1”）作为HASH引用。

感谢您的帮助。

Answer 1

当你说

时

my $job_match=@_;

您在标量上下文中使用@_，它可以获取数组中元素的数量。您可以通过说：

将其更改为list-context

my ($job_match) = @_;

我个人更喜欢：

my $job_match = shift;

如果没有给出数组，

shift将在@_上运行。但我想这是个人品味问题。

Perl哈希引用作为子例程的参数 - 不能将字符串用作HASH引用

1 个答案: