如何从同一个键打印出不同的值？

Question

我有两个具有相同键但不同值的散列。

%HASH1

ERROR MESSAGE1 => A1
ERROR MESSAGE2 => A2
ERROR MESSAGE3 => A3
ERROR MESSAGE4 => A4

%HASH2

ERROR MESSAGE1 => C4
ERROR MESSAGE2 => C5
ERROR MESSAGE3 => C6
ERROR MESSAGE4 => C7

我的代码是这样的

my %errordata;
for my $key (keys %hash1) {
    $errordata{$key} = [ $hash2{$key}, $hash1{$key} ];
}

use Data::Dumper; 
print Dumper \%errordata;

所以，我的问题是如何根据上面的代码打印没有第一个散列值的值？因为我尝试执行 while 循环，但它显示的是 ARRAY(0x2113a30)。

while (my($g,$w) = each %errordata)
{
   print "$_" for @{$w};
}

谢谢。

编辑

输出应该是这样的

ERROR MESSAGE: ERROR MESSAGE1
FULL PATH: A1
LINE: C4

Answer 1

请调查以下代码段是否符合您的问题。

注意：while( my($g,$w) = each %errordata ) 不会根据键顺序对对进行排序（使用 for 和 sort keys %errordata 代替）

use strict;
use warnings;
use feature 'say';

my %hash1 = ( 
    'ERROR MESSAGE1' => 'A1',
    'ERROR MESSAGE2' => 'A2',
    'ERROR MESSAGE3' => 'A3',
    'ERROR MESSAGE4' => 'A4'
);

my %hash2 = (
    'ERROR MESSAGE1' => 'C4',
    'ERROR MESSAGE2' => 'C5',
    'ERROR MESSAGE3' => 'C6',
    'ERROR MESSAGE4' => 'C7'
);

my %errordata;

for my $key (keys %hash1) {
    $errordata{$key} = [ $hash2{$key}, $hash1{$key} ];
}

use Data::Dumper; 
print Dumper \%errordata;

say '--- Loop while --------------';
while (my($g,$w) = each %errordata)
{
    say 
"ERROR MESSAGE: $g
FULL PATH: $errordata{$g}[1]
LINE: $errordata{$g}[0]";
}

say '--- Loop for ----------------';
for( sort keys %errordata ) {
    say 
"ERROR MESSAGE: $_
FULL PATH: $errordata{$_}[1]
LINE: $errordata{$_}[0]";
}

输出

$VAR1 = {
          'ERROR MESSAGE3' => [
                                'C6',
                                'A3'
                              ],
          'ERROR MESSAGE2' => [
                                'C5',
                                'A2'
                              ],
          'ERROR MESSAGE1' => [
                                'C4',
                                'A1'
                              ],
          'ERROR MESSAGE4' => [
                                'C7',
                                'A4'
                              ]
        };
--- Loop while --------------
ERROR MESSAGE: ERROR MESSAGE3
FULL PATH: A3
LINE: C6
ERROR MESSAGE: ERROR MESSAGE2
FULL PATH: A2
LINE: C5
ERROR MESSAGE: ERROR MESSAGE1
FULL PATH: A1
LINE: C4
ERROR MESSAGE: ERROR MESSAGE4
FULL PATH: A4
LINE: C7
--- Loop for ----------------
ERROR MESSAGE: ERROR MESSAGE1
FULL PATH: A1
LINE: C4
ERROR MESSAGE: ERROR MESSAGE2
FULL PATH: A2
LINE: C5
ERROR MESSAGE: ERROR MESSAGE3
FULL PATH: A3
LINE: C6
ERROR MESSAGE: ERROR MESSAGE4
FULL PATH: A4
LINE: C7

Answer 2

您的代码在构建 %errordata 哈希之前看起来不错。

从 %errordata 检索数据时，您希望它打印值 FULL PATH 和 LINE 作为每个名为 ERROR MESSAGE 的键的值。

您可以使用 foreach 循环打印它们。

...
foreach my $key( sort keys %errordata ){
    print "ERROR MESSAGE: $key\n";
    print "FULL PATH: $errordata{$key}[1]\n";
    print "LINE: $errordata{$key}[0]\n";
}

因为 LINE 和 FULL PATH 将始终分别是数组第一个和第二个元素的哈希值。

如何从同一个键打印出不同的值？

How to print out different values from same key?

perl

key-value