VPF::Как сделать - Форум программистов

GrayCardinal

Дата 4.10.2006, 06:21 (ссылка)

(нет голосов)

Загрузка ...

Фигасе

Профиль
Группа: Завсегдатай
Сообщений: 3039
Регистрация: 9.11.2003

Репутация: нет
Всего: 58

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

--------------------

Go go go !

GrayCardinal

Дата 4.10.2006, 07:11 (ссылка)

(нет голосов)

Загрузка ...

Фигасе

Профиль
Группа: Завсегдатай
Сообщений: 3039
Регистрация: 9.11.2003

Репутация: нет
Всего: 58

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

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

--------------------

Go go go !

korob2001

Дата 4.10.2006, 10:41 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 2871
Регистрация: 29.12.2002

Репутация: 6
Всего: 61

Код


#!/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 (ссылка)

(нет голосов)

Загрузка ...

Perl Liker

Профиль
Группа: Участник
Сообщений: 841
Регистрация: 13.12.2004
Где: Ростов-на-Дону

Репутация: 3
Всего: 28

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

--------------------

[color=gray]There's More Than One Way To Do It[/color]

GrayCardinal

Дата 4.10.2006, 10:46 (ссылка)

(нет голосов)

Загрузка ...

Фигасе

Профиль
Группа: Завсегдатай
Сообщений: 3039
Регистрация: 9.11.2003

Репутация: нет
Всего: 58

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

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

Цитата

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

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

--------------------

Go go go !

korob2001

Дата 4.10.2006, 12:11 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 2871
Регистрация: 29.12.2002

Репутация: 6
Всего: 61

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

)

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

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

--------------------

"Время проходит", - привыкли говорить вы по неверному пониманию.
"Время стоит - проходите вы".

GrayCardinal

Дата 4.10.2006, 12:28 (ссылка)

(нет голосов)

Загрузка ...

Фигасе

Профиль
Группа: Завсегдатай
Сообщений: 3039
Регистрация: 9.11.2003

Репутация: нет
Всего: 58

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

--------------------

Go go go !

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Perl: Системное программирование \| Следующая тема »