хеш хешей

@Владимир. · Регистрация: 08.07.2009

Author24 — интернет-сервис помощи студентам

Два примера, первый работает, во втором помогите понять причину отказа, ведь только меняю ключ на переменную в цикле:

Perl

for($i=1;$i<10;$i++){
%hash = (
     1 => {100 => 1,
             2 => 20},
 
 vegetables => {favorite => "corn",
       'second favorite' => "peas",
        'least favorite' => "turnip"}
);
}
print $hash{1}{2};
 
 
for($i=1;$i<10;$i++){
%hash = (
     1 => {100 => 1,
            $i => 2},
 
 vegetables => {favorite => "corn",
       'second favorite' => "peas",
        'least favorite' => "turnip"}
);
}
print $hash{1}{2};

Добавлено через 20 минут
Ответ наверно в том что фигурные скобки превращают массив/хеш в ССЫЛКУ на хеш,
но если переменную вынести за фигурные

Perl

for($i=1;$i<10;$i++){
%hash = (
     $i => {100 => 1,
            2 => 2},
 
 vegetables => {favorite => "corn",
       'second favorite' => "peas",
        'least favorite' => "turnip"}
);
}
print $hash{1}{2};

третий пример всё равно не работает.
Моя задача использовать хеш хешей 4 уровней вложенности, примерно так: хеш хешей хешей хешей;
$z{a}{b}{c}{d}. Заполнение/извлечение в цикле что то не поддается.

Vovan-VE · 29.11.2010, 16:57

Да, {} создает ссылку на хеш.

Perl

1	$perHash = {};

аналогично (если не считать временной переменной)

Perl

1 2	%tmp = (); $perHash = \%tmp;

Вот примерв три уровня

Perl

%hash = ();
for $x (1,2) {
    $hash{$x} = {};
    for $y (1,2) {
        $hash{$x}{$y} = {};
        for $z (1,2) {
            $hash{$x}{$y}{$z} = $x*100 + $y*10 + $z;
        }
    }
}
print $hash{1}{2}{1};

А вот он же, но немного по-другому

Perl

%hash = ();
for $x (1,2) {
    my %x = ();
    $hash{$x} = \%x;
    for $y (1,2) {
        my %y = ();
        $x{$y} = \%y;
        for $z (1,2) {
            $y{$z} = $x*100 + $y*10 + $z;
        }
    }
}
print $hash{1}{2}{1};

@Владимир. · 29.11.2010, 18:01 **[ТС]**

Vovan-VE спасибо! Примеры новые, я так что то не видел, вот построил перед этим так:

Код

my %hash = (); my $g = 25; my $i;

for($a= 1;$a<11;$a++){
 for($b= 1;$b<11;$b++){
  for($c= 1;$c<11;$c++){$i++;
   $hash{$g}{$a}{$b}{$c} = $i;
  }
 }
}

for my $k1 (keys %hash ) {
 for my $k2 (keys %{$hash{ $k1 }} ) {
  for my $k3 (keys %{$hash{$k1}{$k2}} ) {
   for my $k4 (keys %{$hash{$k1}{$k2}{$k3}} ) {$ga++;
    print "k4: $k4 ==$k1->$k2->$k3->$k4 :::: $hash{$k1}{$k2}{$k3}{$k4}  ==== № $ga<BR>";
   }
  }
 }
}

	29.11.2010, 18:01