如何更新散列數組中的值，該散列值位於perl中散列的散列中？

Question

我知道似乎很混亂。我試圖「畫出」這個數據結構：

hash-> key - >（（key） - > [（key，value），（key，value），（key，value）... ]， （key，value））

所以有第一個關鍵字，它的值被括在圓括號中。散列的第一個鍵的值是兩個鍵，一個（右邊的）是另一個簡單的鍵，值對。另一個（左邊的）鍵值是散列數組。我能夠使用以下行的代碼來更新「右」鍵，值對：

$hash{$parts[1]}{"PAGES"} += $parts[2]; 

其中$份[1]和$份[2]是從數組只是元素。我+ =從我的哈希值的「右」鍵值對。我現在需要做的是更新「左」鍵，值對 - 散列哈希中的散列數組。這是我如何初始化這兩個鍵，值對數組中的哈希散列：

$hash{$printer}{"PAGES"} = 0; 
$hash{$printer}{"USERS"} = [@tmp]; 

這是我多次嘗試哈希值的數組中訪問和更新的值之一：

$hash{$parts[1]}{"USERS"}[$parts[0]] += $parts[2]; 

我只是無法弄清楚這個正確的語法。如果有人可以幫助我，我會很感激。謝謝。

編輯：我猜一個更尖銳的問題是：我如何從哈希數組中獲得哈希鍵（記住數組是散列哈希）？

編輯：將此添加到代碼：

#Go through each user to check to see which user did a print job and add the page 
#count to their total 
#$parts[0] is the user name, $parts[1] is the printer name, $parts[2] is the page 
#count for the current print job 
for(my $i=0;$i<$arr_size;$i++) 
{ 
    my $inner = $hash{$parts[1]}{"USERS"}[$i]; 
    my @hash_arr = keys %$inner; 
    my $key = $hash_arr[0]; 

    #problem line - need to compare the actual key with $parts[0] 
    #(not the key's value which is a number) 
    if($hash{$parts[1]}{"USERS"}[$i]{$key} eq $parts[0]) 
    { 
     $hash{$parts[1]}{"USERS"}[$i]{$parts[0]} += $parts[2]; 
    } 
} 

編輯：哎呦嘿嘿，這是我需要的。它仍然不是那裏，但這是我正在尋找的種類：

if($key eq $parts[0]) 
{ 
    $hash{$parts[1]}{"USERS"}[$i]{$parts[0]} += $parts[2]; 
} 

Answer 1

編輯以迴應編輯的問題：如何從散列數組中獲取散列鍵（請記住該數組位於散列散列中）。

use strict; 
use warnings; 

my %h; 
$h{printer}{PAGES} = 0; 
$h{printer}{USERS} = [ 
    {a => 1, b => 2}, 
    {c => 3, d => 4}, 
    {e => 5, f => 6}, 
]; 

# Access a particular element. 
$h{printer}{USERS}[0]{a} += 100; 

# Access one of the inner hashes. 
my $inner = $h{printer}{USERS}[1]; 
$inner->{$_} += 1000 for keys %$inner; 

# Ditto, but without the convenience variable. 
$h{printer}{USERS}[2]{$_} += 9000 for keys %{ $h{printer}{USERS}[2] }; 

use Data::Dumper qw(Dumper); 
print Dumper \%h; 

輸出：

$VAR1 = { 
    'printer' => { 
      'PAGES' => 0, 
      'USERS' => [ 
        { 
        'a' => 101, 
        'b' => 2 
        }, 
        { 
        'c' => 1003, 
        'd' => 1004 
        }, 
        { 
        'e' => 9005, 
        'f' => 9006 
        } 
        ] 
      } 
    }; 

Answer 2

我無法理解您的描述結構。

我的建議是避免像壞鄰居那樣的結構惡化的結構。

人們最終做出這種維修噩夢的一個原因是他們使用XML::Simple。

無論您的示例中出現什麼原因，請自己幫忙，並防止可怕的數據結構被創建。總是有替代品。如果你描述這個問題，人們將能夠提出一些建議。

Answer 3

你所描述的結構的方式是有點動搖不了我，但是嵌入其他結構中訪問數組引用正是如此做，用簡單的例子結構：

my $ref = {k => [1, 3, 5, 6, 9]}; 

下面，6的值被遞增到7：

$ref->{k}->[3] += 1; 

有關->運算符的更多詳細信息，請參見perlref，但簡而言之，箭頭左側的表達式可以是任何返回引用的表達式。在某些情況下，運營商->是可選的，但它是最好的留在了清晰度。

Answer 4

我還沒有解碼的結構。但是，我要發表兩點意見：

1. 使用->語法糖。例如，$hash->{key}->[2]->{key}比嘗試解析沒有語法糖的事情要清楚一點：${{hash}{key}}[1]{key}（如果這甚至是正確的...）

2. 使用面向對象Perl查看此結構。這聽起來並不像可怕。在Perl中，對象是可以爲你處理骯髒工作的子例程。看看perldoc perlboot。這是我用來理解面向對象的Perl如何工作的。你甚至不需要創建一個完整的獨立模塊。對象定義可以存在於同一個Perl腳本中。面向Perl的

使用對象保持混亂的主程序以外，並使其更容易維護程序。另外，如果您必須修改結構，則無需搜索整個代碼即可找到要更改的所有位置。通過語法糖，您可以更輕鬆地查看結構的位置。

比較這monstrosity這個object oriented monstrosity。兩個程序都做同樣的事情。我很早以前就寫了第一篇文章，並且發現很難保證我以面向對象的風格從頭開始重寫它。 （如果有人想知道，他們是Subversion的預先提交鉤子）。