Question

我有一个解析Excel文件的Perl脚本并执行以下操作：它计算A列中的每个值，它在B列中的元素数量，脚本如下所示：

use strict;
use warnings;
use Spreadsheet::XLSX;
use Data::Dumper;
use List::Util qw( sum );

my $col1 = 0;
my %hash;

my $excel = Spreadsheet::XLSX->new('inout_chartdata_ronald.xlsx');


my $sheet = ${ $excel->{Worksheet} }[0];


$sheet->{MaxRow} ||= $sheet->{MinRow};
my $count = 0;
# Iterate through each row
foreach my $row ( $sheet->{MinRow}+1 .. $sheet->{MaxRow} ) {

# The cell in column 1
my $cell = $sheet->{Cells}[$row][$col1];

if ($cell) {

    # The adjacent cell in column 2
    my $adjacentCell = $sheet->{Cells}[$row][ $col1 + 1 ];  
    # Use a hash of hashes

    $hash{ $cell->{Val} }{ $adjacentCell->{Val} }++;

}
}
print "\n", Dumper \%hash;

输出如下：

$VAR1 = {
      '13' => {
                'klm' => 1,
                'hij' => 2,
                'lkm' => 4,
              },
      '12' => {
                'abc' => 2,
                'efg' => 2
              }
    };

这很好用，我的问题是：如何访问此输出$ VAR1的元素以执行以下操作：对于值13，klm + hij = 3并获得如下的最终输出：

$VAR1 = {
      '13' => {
                'somename' => 3,
                'lkm' => 4,
              },
      '12' => {
                'abc' => 2,
                'efg' => 2
              }
    };

所以基本上我想要做的是循环我最后的散列哈希并根据一个唯一的密钥访问它的特定元素，最后完成它们的总和。

任何帮助将不胜感激。感谢

Answer 1

我使用@do_sum来表示您想要进行哪些更改。新密钥在脚本中是硬编码的。请注意，如果subhash中没有密钥（$found标志），则不会创建新密钥。

#!/usr/bin/perl
use warnings;
use strict;

use Data::Dumper;

my %hash = (
            '13' => {
                     'klm' => 1,
                     'hij' => 2,
                     'lkm' => 4,
                    },
            '12' => {
                     'abc' => 2,
                     'efg' => 2
                    }
           );
my @do_sum = qw(klm hij);

for my $num (keys %hash) {
    my $found;
    my $sum = 0;
    for my $key (@do_sum) {
        next unless exists $hash{$num}{$key};
        $sum += $hash{$num}{$key};
        delete $hash{$num}{$key};
        $found = 1;
    }
    $hash{$num}{somename} = $sum if $found;
}

print Dumper \%hash;

Answer 2

听起来你需要了解Perl References，也许Perl Objects这只是处理参考文献的好方法。

如您所知，Perl有三种基本数据结构：

标量（$foo）
数组（@foo）
哈希（%foo）

问题是这些数据结构只能包含标量数据。也就是说，数组中的每个元素都可以包含单个值，或者哈希中的每个键都可以包含单个值。

在您的情况下，%hash是一个散列，其中散列中的每个条目都引用另一个散列。例如：

您的%hash中有一个条目，其中的密钥为13。这不包含标量值，而是对包含三个键的另一个哈希的引用：klm，hij和lkm。你可以通过这种语法引用它：

${ hash{13} }{klm} = 1
${ hash{13} }{hij} = 2
${ hash{13} }{lkm} = 4

花括号可能是必要的，也可能不是必需的。但是，%{ hash{13} }引用$hash{13}中包含的哈希，因此我现在可以引用该哈希的键。你可以想象，当你谈论数组哈希数组哈希的哈希时，这会变得越来越复杂。幸运的是，Perl包含更简单的语法：

$hash{13}->{klm} = 1
%hash{13}->{hij} = 2
%hash{13}->{lkm} = 4

了解哈希以及如何操纵它们。在熟悉了这一点之后，您可以开始学习面向对象的Perl，它以更安全的方式处理引用。

使用perl对哈希值进行哈希处理

2 个答案: