|
ru.perl
- RU.PERL ----------------------------------------------------------------------
From : Andrey Sapozhnikov 2:5020/400 14 Jun 2000 16:26:05
To : All
Subject : Re: Подскажите с массивом пар данных
--------------------------------------------------------------------------------
Roman Karshiev wrote:
> Alexander Rychkov <rychkov@rubtsovsk.ru> пишет в
> сообщении:8i4eu1$ng2$1@rsoft.rubtsovsk.ru...
> > Считываю из базы пары данных, код и название, (все уже сортировано,
> > подготовлено, здесь проблем нет) :
> > 1 Цирк
> > 5 Театр
> > 7 Клуб
>
> База данных, скажем, файл?
> Пусть записи в виде
> === cut ===
> 1|Цирк
> 5|Театр
> 7|Клуб
> === cut ===
>
> > Hужно записать в переменную (наверное, в массив), чтобы в итоге
> > получилось типа: @menu=(1, Цирк, 5, Театр, 7, Клуб);
>
> Тогда читать будешь, скажем, так:
>
> open f, "base.txt";
> while(<f>)
> {
> ($num, $name)=split/\|/;
> push @menu, $num;
> push @menu, $name;
> }
> close f;
open F,"<base.txt" or die $!;
@menu=map {chomp;split /\|/} <F>;
close F;
> Или так для хеша будет удобнее:
>
> open f, "base.txt";
> while(<f>)
> {
> ($num, $name)=split/\|/;
> $menu{$num}=$name;
> }
> close f;
open F,"<base.txt" or die $!;
%menu=map {chomp;split /\|/} <F>;
close F;
Hайдите одно отличие от первого примера.
Андрей
--- ifmail v.2.15dev5
* Origin: Chelindbank (2:5020/400)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
