使用数组值进行 Perl 哈希的最佳实践是什么？

Question

解决这个问题的最佳实践是什么？

    if (... ) 
   { 
    push (@{$hash{'key'}}, @array ) ; 
     }
    else 
     {
     $hash{'key'} =""; 
 }

将一个元素存储为数组或将一个元素存储为散列中的双引号是一种不好的做法吗？

Answer 1

我不确定我是否理解你的问题，但我现在会按字面意思回答它......

my @array = (1, 2, 3, 4);
my $arrayRef = \@array;     # alternatively: my $arrayRef = [1, 2, 3, 4];

my %hash;

$hash{'key'} = $arrayRef;   # or again: $hash{'key'} = [1, 2, 3, 4]; or $hash{'key'} = \@array;

问题的关键是数组或哈希采用标量值......所以你需要引用你的数组或散列并将其用作值。

请参阅 perlref 和 perlreftut 了解更多信息。

---

编辑：是的，您可以添加空字符串作为某些键的值和其他键的引用（数组或散列，甚至标量，类型团/文件句柄或其他标量。无论哪种方式）。它们仍然是标量。

您需要查看 ref 函数来计算了解如何消除引用类型和普通标量之间的歧义。

Answer 2

使用显式数组引用可能更简单：

my $arr_ref = \@array;
$hash{'key'} = $arr_ref;

实际上，执行上述操作并使用 push 会产生相同的数据结构：

my @array = qw/ one two three four five /;
my $arr_ref = \@array;
my %hash;
my %hash2;
$hash{'key'} = $arr_ref;
print Dumper \%hash;
push @{$hash2{'key'}}, @array;
print Dumper \%hash2;

这给出：

$VAR1 = {
          'key' => [
                     'one',
                     'two',
                     'three',
                     'four',
                     'five'
                   ]
        };
$VAR1 = {
          'key' => [
                     'one',
                     'two',
                     'three',
                     'four',
                     'five'
                   ]
        };

使用显式数组引用使用更少的字符，并且比 更容易阅读>push @{$hash{'key'}}, @array 构造，IMO。

编辑：对于您的 else{} 块，分配空字符串可能不太理想。跳过 if-else 构造，稍后当您访问哈希中的值时，执行 if( Defined( $hash{'key '} ) ) 检查。这更接近标准 Perl 习惯用法，并且您不会浪费内存在散列中存储空字符串。

相反，您必须使用 ref() 来找出值中包含哪些类型的数据，这比仅进行定义性检查不太清楚。

Answer 3

我不确定您的目标是什么，但有几件事需要考虑。

首先，如果要存储数组，您想要存储对原始值的引用还是原始值的副本？在任何一种情况下，我都倾向于避免取消引用语法并尽可能获取引用：

 $hash{key} = \@array;  # just a reference

 use Clone; # or a similar module
 $hash{key} = clone( \@array );

接下来，您是否要添加到已经存在的值，即使它是单个值？如果您要拥有数组值，即使您只有一个元素，我也会将所有值设为数组。然后，您不必决定要做什么，并且可以删除特殊情况：

 $hash{key} = [] unless defined $hash{key};
 push @{ $hash{key} }, @values;

这可能是您的“最佳实践”答案，这通常是删除尽可能多的特殊情况和额外逻辑的技术。当我在模块中执行此类操作时，我通常会使用一个 add_value 方法来封装这种魔法，这样我就不必多次查看或键入它。

如果散列键中已经有非引用值，也很容易修复：

 if( defined $hash{key} and ! ref $hash{key} ) {
      $hash{key} = [ $hash{key} ];
      }

如果您已经有想要在数组中的非数组引用值，则可以执行类似的操作。也许您希望匿名哈希成为数组元素之一：

 if( defined $hash{key} and ref $hash{key} eq ref {} ) {
      $hash{key} = [ $hash{key} ];
      }

Answer 4

处理修订后的符号：

if (... ) 
{ 
    push (@{$hash{'key'}}, @array); 
}
else 
{
    $hash{'key'} = "";
}

我们可以立即看出您没有遵循保护新手（和专家！）免受自己错误影响的标准建议。您使用的是符号引用，这不是一个好主意。

use strict;
use warnings;

my %hash = ( key => "value" );
my @array = ( 1, "abc", 2 );
my @value = ( 22, 23, 24 );

push(@{$hash{'key'}}, @array);

foreach my $key (sort keys %hash) { print "$key = $hash{$key}\n"; }
foreach my $value (@array)        { print "array $value\n"; }
foreach my $value (@value)        { print "value $value\n"; }

这不会运行：

Can't use string ("value") as an ARRAY ref while "strict refs" in use at xx.pl line 8.

我不确定我能否弄清楚您想要实现的目标。即使您删除了“use strict;”警告，显示的代码未检测到 push 操作的更改。

use warnings;

my %hash = ( key => "value" );
my @array = ( 1, "abc", 2 );
my @value = ( 22, 23, 24 );

push @{$hash{'key'}}, @array;

foreach my $key (sort keys %hash)   { print "$key = $hash{$key}\n"; }
foreach my $value (@array)          { print "array $value\n"; }
foreach my $value (@value)          { print "value $value\n"; }
foreach my $value (@{$hash{'key'}}) { print "h_key $value\n"; }

push @value, @array;

foreach my $key (sort keys %hash) { print "$key = $hash{$key}\n"; }
foreach my $value (@array)        { print "array $value\n"; }
foreach my $value (@value)        { print "value $value\n"; }

输出：

key = value
array 1
array abc
array 2
value 22
value 23
value 24
h_key 1
h_key abc
h_key 2
key = value
array 1
array abc
array 2
value 22
value 23
value 24
value 1
value abc
value 2

我不确定那里发生了什么。

Answer 5

如果您的问题是如何将之前存储的空字符串值替换为可以将值推入其中的数组，这可能是最好的方法：

if ( ... ) { 
    my $r = \$hash{ $key }; # $hash{ $key } autoviv-ed
    $r   = [] unless ref $r;
    push @$r, @values;
}
else { 
    $hash{ $key } = "";
}

• 我避免使用多个哈希查找 -通过保存自动激活插槽的副本来进行更新。
• 请注意，代码依赖于标量或数组，它们是存储在 %hash 中的整个事物。