помогите понять perl hash

Question

Perl новичок здесь ... У меня была помощь с этим рабочим скриптом perl с некоторым кодом HASH, и мне просто нужна помощь в понимании этого кода, и если бы он мог быть написан так, что я бы понял использование HASHES проще или визуально?

Таким образом, скрипт выполняет регулярное выражение для фильтрации по дате, а остальное регулярное выражение будет извлекать данные, относящиеся к этой дате.

use strict; 
use warnings; 
use constant debug => 0; 
my $mon = 'Jul'; 
my $day = 28; 
my $year = 2010; 
my %items =(); 

while (my $line = <>) 
{ 
    chomp $line; 
    print "Line: $line\n" if debug; 
    if ($line =~ m/(.* $mon $day) \d{2}:\d{2}:\d{2} $year: ([a-zA-Z0-9._]*):.*/) 
    { 
     print "### Scan\n" if debug; 
     my $date = $1; 
     my $set = $2; 
     print "$date ($set): " if debug; 
     $items{$set}->{'a-logdate'} = $date; 
     $items{$set}->{'a-dataset'} = $set; 
     if ($line =~ m/(ERROR|backup-date|backup-size|backup-time|backup-status)[:=](.+)/) 
     { 
      my $key = $1; 
      my $val = $2; 
      $items{$set}->{$key} = $val; 
      print "$key=$val\n" if debug; 
     } 
    } 
} 

print "### Verify\n"; 
for my $set (sort keys %items) 
{ 
    print "Set: $set\n"; 
    my %info = %{$items{$set}}; 
    for my $key (sort keys %info) 
    { 
     printf "%s=%s;", $key, $info{$key}; 
    } 
    print "\n"; 
} 

То, что я пытаюсь понять эти строки:

 $items{$set}->{'a-logdate'} = $date; 
     $items{$set}->{'a-dataset'} = $set; 

И снова пару линий вниз:

 $items{$set}->{$key} = $val; 

Это пример ссылки на хэш? хэш хешей?
Я думаю, я запутался с использованием {$} множества :-(

Answer 1

%items является хэш хэш ссылок (концептуально, хэш хэшей). $set ключ в %items, а затем вы получите обратно другой хэш, который добавляется к с ключами 'a-logdate' и 'a-dataset'.

(скорректированный с учетом замечаний) ответ

Answer 2

Лу Франко близок, с одной незначительной опечаткой — хэш хэш ссылок является %items, не $items . Это ссылка красный до $items{key}, когда вы извлекаете значение из %items, потому что значение, которое вы извлекаете, является скаляром (в данном случае хеш-ссылкой), но $items будет другой переменной.