1

我完全陷入了一个问题：

我确实有一些巨大的 perl 脚本和几个巨大的多级 hash_tables。一切正常，但为了减少代码和可读性，我想将最后一个哈希引用交给子函数。

如前所述，我确实有几个不同的哈希表，例如 %hash_table1 和 %hash_table2，它们都有相同的值，但键的级别不同。

hash_table1 具有 3 级键：

$hash_table1{$key1}{$key2}{$key3}->{value1}
$hash_table1{$key1}{$key2}{$key3}->{value2}
$hash_table1{$key1}{$key2}{$key3}->{value3}

我在另一个 hash_table 中确实具有相同的“值”，但具有不同的多级： hash_table2 具有 2 级键：

$hash_table2{$key1}{$key2}->{value1}
$hash_table2{$key1}{$key2}->{value2}
$hash_table2{$key1}{$key2}->{value3}

我可以通过复制所有代码来轻松访问所有值，更改其中的键数量，但大多数时候，我确实有 20 个不同的值，所以......访问数据的代码量是...... . 嗯... 巨大的。此外，如果需要更改某些内容，我将不得不多次更改；（

我想要的是类似于以下子函数的东西，我基本上只是将最后一个哈希键引用存储在一个临时哈希表中，以便以相同的方式轻松访问不同哈希表的所有值（这是不是在职的！！！）：

sub print_all_values {
    my %hash_tmp = shift @_;
    printf $hash_tmp->{value1}.";";
    printf $hash_tmp->{value2}.";";
    printf $hash_tmp->{value3}."\n";
}

并且在代码中的某个地方我通过多级处理并只是将最后一个引用传递给先前定义的子函数来做......好吧，应该用存储的值做什么（让我们说只是打印）：

foreach my $k1 (sort {$a <=> $b} keys %hash_table1){
   foreach my $k2 (sort {$a <=> $b} keys %{$hash_table1{$k1}}){
      foreach my $k3 (sort {$a <=> $b} keys %{$hash_table1{$k1}{$k2}}
         print_all_values(%{$hash_table1{$k1}{$k2}{$k3}});
      }
   }
}

在其他地方结束访问二级hash_table的代码：

foreach my $k1 (sort {$a <=> $b} keys %hash_table2){
   foreach my $k2 (sort {$a <=> $b} keys %{$hash_table2{$k1}}){
      print_all_values(%{$hash_table2{$k1}{$k2}});
   }
}

如前所述，最好有一个可行的解决方案将最后一个哈希引用传递给子函数，以便基本上一次访问所有存储的值。

非常感谢您提供任何有用的评论，

一切顺利，

OldMcFunsy

4

4 回答 4

1

看看perlref

您应该只传递对子的引用：

print_all_values(\%hash_table);

sub print_all_values {
    my $hash_tmp = shift;
    printf $hash_tmp->{value1}.";";
    printf $hash_tmp->{value2}.";";
    printf $hash_tmp->{value3}."\n";
}
于 2013-07-16T17:16:58.833 回答
0 
sub print_all_values {
    my %hash_tmp = shift @_;
    printf $hash_tmp->{value1}.";";
    printf $hash_tmp->{value2}.";";
    printf $hash_tmp->{value3}."\n";
}

$hash_tmp->{value1}正在引用与 . 完全不同的东西%hash_tmp。将这些更改为$hash_tmp{value1}可能会解决问题。此外，请始终使用严格和警告。

于 2013-07-16T17:58:09.177 回答
0

这应该可以，但我没有任何复杂的哈希来测试它。:)

# --------------------------------------
#       Name: scan_hash
#      Usage: %value_of = scan_hash( \%hash_tree, @keys );
#    Purpose: To do a depth first scan of the hash tree
#             and create a hash of the leaves.
# Parameters: \%hash_tree -- Tree to scan
#                   @keys -- List of keys; these may appear anywhere in the tree
#    Returns:   %value_of -- a simple key=>value has,
#                            the keys are from @keys
#                            and their values are what was found
#
sub scan_hash {
  my $hash_tree = shift @_;
  my @keys      = @_;
  my %value_of  = ();

  for my $key ( keys %$hash_tree ){

    # save if the current key is one we're looking for
    if( grep { $_ eq $key } @keys ){
      $value_of{$key} = $hash_tree->{$key};

    # is it a reference?
    }elsif( my $ref = ref( $hash_tree->{$key} )){

      if( $ref eq 'HASH' ){

        # hash references are scanned via recursion
        my %new_value_of = scan_hash( $hash_tree->{$key}, @keys );

        # stored using slices: http://perldoc.perl.org/perldata.html#Slices
        @value_of{ keys %new_value_of } = values %new_value_of;

      }else{
        die "cannot handle a $ref reference\n";
      }

    } # end if

  } # end for

  return %value_of;
}
于 2013-07-16T17:59:38.683 回答
0 
sub print_all_values {
    print(join(";", @_), "\n");
}

for my $k1 (sort {$a <=> $b} keys %hash_table1) {
   for my $k2 (sort {$a <=> $b} keys %{ $hash_table1{$k1} }) {
      print_all_values(
         @{ $hash_table1{$k1}{$k2} }{
            sort {$a <=> $b} keys %{ $hash_table1{$k1}{$k2} }
         }
      );
   }
}

抱歉，没时间解释了。

于 2013-07-16T17:20:34.563 回答