数组到哈希 perl

Question

这是同一个线程，但名称不同（Working with Spreadsheet::ParseExcel）。因为他们中的一些人提出了标题，而问题没有意义。抱歉没让事情变得容易。

我的问题是：像这样的数组

TY45745a A,B
TY45745a C,D
TY45745a E,F
TY5475a G,H
TY5475a I,J
TY5475a K,L

应该变成这样的散列。

TY45745a =>(A,B,C,D,E,F) TY5475a =>(G,H,I,J,K,L)

下一部分是重命名文件，如果文件名末尾有 [AE] 那么应该重命名至 TY45745a[1..6]，并且如果有 [GL] TY5475a[1..6]。

%哈希=@array。

但这会导致

TY45745a => A,B
TY45745a => C,D
TY45745a => E,F
TY5475a =>  G,H
TY5475a =>  I,J
TY5475a =>  K,L

我应该如何对它们进行分组？感谢您的时间和建议

编辑：抱歉，这行不通，因为当通过 for 循环时，部分的输出将如下所示：

TY45745a
A,B
TY45745a
C,D
TY45745a
E,F
TY5475a
G,H
TY5475a
I,J
TY5475a
K,L

Answer 1

使用问题中更新的数组，此方法有效：

my $hash = {};

for my $part (@arr) {
    my ($key, $values) = split/ /, $part;
    push @{$hash->{$key}}, $_ for split/,/, $values;
}

我不确定您替换 [AF] 和 [GL] 的意思，因为这会产生您所描述的所需输出，而无需任何替换。

Answer 2

#/usr/bin/perl
use List::MoreUtils;
use Data::Dumper;

my $h; 
my @a = ("TY45745a", "A,B", 
         "TY45745a", "C,D", 
         "TY45745a", "E,F", 
         "TY5475a",  "G,H", 
         "TY5475a",  "I,J", 
         "TY5475a",  "K,L");

my $it = List::MoreUtils::natatime 2, @a; 

while (my ($k,$v) = $it->()) { 
    print "$k => $v"; 
    push @{$h->{$k}}, split /,/, $v; 
}; 

print Dumper($h)

给出：

TY45745a => A,B
TY45745a => C,D
TY45745a => E,F
TY5475a => G,H
TY5475a => I,J
TY5475a => K,L

$VAR1 = {
      'TY5475a' => [
                     'G',
                     'H',
                     'I',
                     'J',
                     'K',
                     'L'
                   ],
      'TY45745a' => [
                      'A',
                      'B',
                      'C',
                      'D',
                      'E',
                      'F'
                    ]
    };