Perl, балин...

[Rett Pop]

Memento mori, All!

Подмогните в освоении субжа, плз.
Хочу из текстовика вида:
Рынок\t0482\t250022
Рынок\t0482\t250023
Рынок\t0482\t250024
Магазин\t0482\t123321
Магазин\t0482\t123322
Магазин\t0482\t123323

, разбитого табуляциями, вынуть названия фирм, телефонные коды и телефоны. Все это впихнуть в хэш-хэшей вида:
Firms{name{code, tel}},

и потом вывести на экран в виде:
Рынок: 250022, 250023, 250024
Магазин: 123321, 123322, 123323

Уперся пока в заполнение этого самого Firms{}.
Буду благодарен за пример.

[Tigra]

Обрабатываешь массив строк в цикле, построчно - ищешь первый таб, потом второй..
split, к сожалению, не пройдет

Нет времени пока писать пример\код, может вечерком напишу)
а так - пока идея...)

[Rett Pop]

Обрабатываешь массив строк в цикле, построчно - ищешь первый таб, потом второй..
split, к сожалению, не пройдет

Он как раз подходит. Проверяю выводом на экран считываемых из файла значений.
Проблема в корректном впихивании этих значений в хэш так, чтобы они не затирались.

[Tigra]

упс) поняла.. заработалась я что-то)
Проблема с одинаковыми ключами.. Как решить самостоятельно - пока в голову не приходит, может, еще придет)
Модуль Hash::Merge.. так, кажется

[Lord of rings]

На РНР с массивами всё просто... Дался вам этот Перл. Я тоже когда-то на нем пробовал ваять, потом плюнул и перешел на РНР...

[Rett Pop]

На РНР с массивами всё просто... Дался вам этот Перл. Я тоже когда-то на нем пробовал ваять, потом плюнул и перешел на РНР...

Пока для себя - выбираешь ты. Когда за деньги - выбирает заказчик . И ежели ему надоть перл, то надоть знать перл.

2All Промблему решил перековыряв доку к ActivePerl-у. С полпинка решение не прошло из-за попытки применения PHP-ных же понятий о массивах и хэшах. В перле оно по-другому реализовано. Добавление элемента в конкретный массив в хэше скалярных массивов в перле:

if ( m/$TelRE/om )
     {
        @tels = split (" ");
        ## Пробегаем по всем телефонам фирмы и впихиваем их как ключи в хэш телефонов
        for &#40; $Cntr = 0; $Cntr < scalar&#40;@tels&#41;; $Cntr++ &#41; &#123;
           push @&#123; $OutTels &#123;$tels&#91;$Cntr&#93;&#125; &#125;, $name;
        &#125;
     &#125;

Конструкция "push @{ $" явилась неожиданностью

[Inferno]

Не усложняйте на ровном месте используйте регулярные выражения.
/\s?(.*)\\(.*)\\(.*)\s?/