Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Perl: Системное программирование > Как сделать

Автор: GrayCardinal 4.10.2006, 06:21

сабж. Т.е. хэш (изначально пустой), а по ключу у него должен быть список, в который надо добавить элемент. Я чего-то туплю smile

Автор: GrayCardinal 4.10.2006, 07:11

Все, нагуглил smile

Юзить ссылки вместо самих массивов надо
$link = \ @array
Разыменовывать надо :
@{$link}
А уже линки пихать в хэш.

Автор: korob2001 4.10.2006, 10:41

Код


#!/usr/bin/perl -w
use strict;

my %hash = (
   list1 => ['element1','element2','element3'],
   list2 => ['element4','element5','element6'],
   list3 => ['element7','element8','element9'],
);

# Выврдим содержимое хеша.
foreach my $key (sort keys %hash) {
        print "$key => ['" . join("','", @{$hash{$key}}) . "'],\n";
}

В данном случае используется хеш анонимных массивов. А вообще, как сказал GrayCardinal читай о том, как создавать ссылки и как их разименовывать.

Автор: sharq 4.10.2006, 10:43

GrayCardinal,

Код


use strict;
use Data::Dumper;

my $hash = {
 'first' => [1,2,3,4],
 'second' => [5,6,7,8],
 ...
};

push @{$hash->{'third'}}, [9,0]; # добавление

print Dumper $hash;

Добавлено @ 10:44
Блин, опоздал smile

Вот так мы работаем, модераторы мы smile

Автор: GrayCardinal 4.10.2006, 10:46

korob2001,
sharq,
спасибо, я еще зайду smile

Добавлено @ 10:47

Цитата

А вообще, как сказал GrayCardinal читай о том

ЗЫ
первый пост мой был. И второй тоже smile

Автор: korob2001 4.10.2006, 12:11

Цитата(GrayCardinal @ 4.10.2006, 07:46

)

первый пост мой был. И второй тоже

Вобщем слушай, свой внутренний голос. smile

Автор: GrayCardinal 4.10.2006, 12:28

korob2001,
Гугль - руль smile