forum.lissyara.su

Код: Выделить всё

$a="data";
@mass=(1,2,3);
%data=();
$gg=0;
foreach $index (@mass){
 $g++;
 ${$a}{"$index"}=$gg; #<-------
 print ${$a}{"$index"}."\n"; #<-------
}

Код: Выделить всё

$i{$a}{$b}
$i->{$a}->{$b}

Код: Выделить всё

$a->{"$index"}=$gg; #<-------
print $a->{"$index"}."\n"; #<-------

Код: Выделить всё

use strict;                                                                                                                                                                     
use warnings;