Perl hashes of arrays

[peinguin]

Є така конструкція
my %towns = ();

foreach my $town ($ini{towns}){
    my($key, $value) = %$town;
    my @villagies = split(', ',$value);
    $towns{$key} = \@villagies;
}

а ніяк не можна зробити $towns{$key} = split(', ',$value);

тому що зараз split(', ',$value) повертає кількість символів в масиві.

https://github.com/peinguin/Grepolis-Bot

[Володимир Лісівка]

Можливо так:

Код: [Вибрати]

   $towns{$key} = [ split(', ',$value) ];

?

[Михайло Даниленко]

або

Код: [Вибрати]

@{$towns{$key}} = split ',', $value;


[peinguin]

Дякую велике. Гарна мова.