VPF::Moose ассоциативный массив обьектов

Ninazu

Дата 2.5.2013, 17:51 (ссылка)

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

Загрузка ...

Новичок

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

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

Люди добрый! Подскажите. Только начинаю изучать Perl. Как можно создать ассоциативный массив из объектов? Чтобы можно было дёргать методы таким образом

Код


print TEST->allLTS{'ONE'}->name;

Внутри процедуры создать массив получилось $task{$i}, но как это сделать с помощью Moose, чтобы он был доступен

Собственно мои попытки

Код


package LTS;{
use Moose;
    has 'name' => (is =>'rw', isa =>'Str',);
    has 'id'   => (is =>'rw', isa =>'Int',);
}
package TEST;{
use Moose;
    #has 'allLTS'  => (is =>'rw',isa =>'ArrayRef[LTask]',);
    sub Create {
        my $this = shift;
        my %task=();
        open(FILE, "<conf.ini");
            while (<FILE>) {
                my @spec = split(chr(9),$_);
                my $i=$spec[0];
                $task{$i}=LTS->new(name=>$_);
            }
        close(FILE);
    }
}

Это сообщение отредактировал(а) Ninazu - 2.5.2013, 18:13

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