0

我有一个解析 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
              }
    };

所以基本上我想要做的是循环遍历我的最终哈希值,并根据唯一键访问其特定元素,最后计算它们的总和。

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

4

2 回答 2

1

我曾经@do_sum指出您要进行哪些更改。新密钥在脚本中被硬编码。$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;
于 2012-11-15T13:21:38.437 回答
0

听起来你需要了解Perl References,也许Perl Objects只是处理引用的好方法。

如您所知,Perl 具有三种基本数据结构:

  • 标量 ( $foo)
  • 数组 ( @foo)
  • 哈希 ( %foo)

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

在您的情况下%hash是一个哈希,其中哈希中的每个条目都引用另一个哈希。例如:

%hash有一个条目,其中的键为13。这不包含量值,而是对另一个散列的引用,其中包含三个键:klmhijlkm。您可以通过以下语法引用它:

${ 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,它以更安全的方式处理引用。

于 2012-11-15T14:58:50.357 回答