Решено: Perl Hash of lists

[Lanseg]

Задача примерно такая: Есть хэш списков %stats. Нужно добавлять элементы в список, хранящийся в $stats{ $key }, Если значение $stats{ $key } не задано, то задать, как список из одного элемента.

Предполагается многократное выполнение этой операции

[Poor Fred]

Задача примерно такая: Есть хэш списков %stats. Нужно добавлять элементы в список, хранящийся в $stats{ $key }, Если значение $stats{ $key } не задано, то задать, как список из одного элемента.

Предполагается многократное выполнение этой операции

ну а

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

$stats{ $key } .= $some_element

или

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

push $stats{ $key }, $some_element

не катит?

[diesel]

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

push $stats{ $key }, $some_element

не катит?

нет:

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

diesel@xenocefal:~$ cat tmp.pl
#!/usr/bin/perl


my %hash = ();
while (<>){
                ($user, @list) = split /:/, $_;
                foreach $item ( @list){
                        push $hash{$user}, $item;
                }
}

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

diesel@xenocefal:~$ perl -wc tmp.pl
Type of arg 1 to push must be array (not hash element) at tmp.pl line 8, near "$item;"
tmp.pl had compilation errors.

а вот так будет работать:

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

push @{$hash{$user}}, $item;

(просто тестовый пример, ничего лучше в голову не пришло)

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

diesel@xenocefal:~$ cat tmp.pl
#!/usr/bin/perl


my %hash = ();
while (<>){
                chomp;
                ($user, @list) = split /:/, $_;
                foreach $item ( @list){
                        push @{$hash{$user}}, $item;
                }
}

foreach $item (keys %hash){
                print $item . "-> ";
                map { print $_ . " "} @{$hash{$item}};
                print "\n";
}
diesel@xenocefal:~$ ./tmp.pl /etc/passwd
games-> x 5 60 games /usr/games /bin/sh
...

Про сложные структуры данных можно прочитать в perldoc perldsc и perldoc perllol.

[pcodr]

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

                map { print $_ . " "} @{$hash{$item}};
                print "\n";

Хлебом не корми, дай map поюзать
Тот же результат:

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

print "@{$hash{$item}}\n";

[Lanseg]

Спасибо Вопрос закрыт