1

我正在尝试生成一个哈希列表,使用以下脚本与用户交互:

use strict;
use warnings;

my $KEY_1 = "one";
my $KEY_2 = "two";


sub generateHash{
    my ($value1, $value2) = (@_);

    $value2 = $value1 + 5.0;

    my %hash = {};

    $hash{$KEY_1} = $value1;
    $hash{$KEY_2} = $value2;

    return %hash;
}

print "Num: \n";
my $number = <>;

my @hashes = ();
my %new_hash = {};

for ( my $i = 1; $i < $number + 1; $i = $i + 1 ) {

    print "Enter the values  $i \n";

    print "value 1: ";
    my $value1= <>;

    print "\nvalue 2: ";
    my $value2= <>;

    chomp $value1;
    chomp $value2;

    %new_hash = generateHash($value1, $value2);     

    push (@hashes, %new_hash);
    print "@hashes\n";
}

my %test = $hashes[0];
my @keys = keys %test;
my @values = values %test;

print "@keys\n";
print "@values\n";

当我尝试执行该程序时,它会在访问数组中的哈希时引发一些与使用引用相关的错误。我错过了一些东西,但我看不到什么,我想知道我在哪里访问哈希的引用。提前谢谢你,附件是执行的输出:

Num: 
1
Reference found where even-sized list expected at generate_hashes.pl line 21, <> line 1.
Enter the values  1 
value 1: 1

value 2: 1
Reference found where even-sized list expected at generate_hashes.pl line 12, <> line 3.
Use of uninitialized value $hashes[1] in join or string at generate_hashes.pl line 32, <> line 3.
HASH(0x2587a88)  one 1 two 6
Odd number of elements in hash assignment at generate_hashes.pl line 34, <> line 3.
HASH(0x2587a88)
Use of uninitialized value $values[0] in join or string at generate_hashes.pl line 38, <> line 3.
4

1 回答 1

2

在 generate_hashes.pl 第 21 行,<> 第 1 行中发现了偶数列表的参考。

那是由于

my %new_hash = {};

空花括号{}提供对空散列的引用,但在左侧你有一个散列,而不是对散列的引用。您可以改为使用以下方法进行初始化:

my %new_hash = ();

但是(如评论)如果你想从一个空哈希开始,你实际上不需要初始化;这是默认设置。

在 generate_hashes.pl 第 12 行 <> 第 3 行中找到了预期的偶数列表的参考。

函数内部的故障与上述相同generateHash

在这一行:

push (@hashes, %new_hash);

我怀疑您打算将对哈希的引用推送到数组中,为此您需要添加\

push( @hashes, \%new_hash );

否则,您会将整个数据结构放入数组中,等等。

在这一行:

my %test = $hashes[0];

你的右手边是一个标量,一个哈希的引用,因此你需要取消引用才能在分配中使用该哈希:

my %test = %{$hashes[0]};

像这样的消息

哈希(0x2587a88)

来自这一行:

打印“@hashes\n”;

不确定您的意图是什么,但是如果您想查看内容,则需要遍历数据结构(它将是对哈希的引用数组)。您可以考虑使用 Data::Dumper 模块来帮助您查看那里的内容。

于 2017-05-06T12:05:40.073 回答