|
|
ru.perl- RU.PERL ---------------------------------------------------------------------- From : Roman Karshiev 2:5020/400 13 Jun 2000 12:45:39 To : All Subject : Re: Подскажите с массивом пар данных -------------------------------------------------------------------------------- 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"; while(<f>) { ($num, $name)=split/\|/; $menu{$num}=$name; } close f; > Проблема в том, чтобы парами или поэлементно дописывать в этот массив, > я этого не умею, к сожалению, т.к. не программист. Кажется, ты про push говоришь. push @array, $new_item; > Потом в нескольких местах скрипта вытащить и в ЦИКЛЕ для формы вывести > эти параметры, чтобы получилось, как было взято из базы (см.выше) > цикл { > printf ("Произвольный текст %d Еще текст%s",$menu[0],$menu[1]); > .. и т.д.} скажем, так: for($i=0;$i<=$#menu;$i++) { printf("....", $menu[2*i], $menu[2*i+1]);} Hо это, понятно, изврат :) Удобнее так (если не массив, а хэш использовать): for $i (keys %menu){ printf("...", $i, $menu{"$i"}); } > P.P.S. Просьба не отсылать к документации, все равно ни черта не понимаю, > за то знаю, что хочу получить в результате и что нужно сделать, а вот как??? Спрашивай ещё, коли чего. Сам учусь. А учиться лучше всего уча других :)) -- =KRoN= ICQ#4886816 mailto:kron@nm.ru http://kron.nm.ru - Двери http://drops.da.ru - Грёзы --- ifmail v.2.15dev5 * Origin: Demos online service (2:5020/400) Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
Архивное /ru.perl/65771fa8d3a3.html, оценка из 5, голосов 10
|