ru.perl
- RU.PERL ----------------------------------------------------------------------
From : Nikolay Pichtin 2:5056/30 11 Jan 2002 11:53:12
To : All
Subject : Много параметров
--------------------------------------------------------------------------------
Из формы передается много параметров.
Хотелось бы вместо
use CGI;
my $q = new CGI;
my $ID = $q->param('ID');
my $NAME = $q->param('NAME');
и т.д. сделать что-то типа:
use CGI;
$q = new CGI;
my @val = $q->Vars; my $n=0;
foreach (@val) {
print "$val[$n] -> $val[$n+1]<br>\n"; # для отладки
# Здесь надо как-то сделать, чтобы $ID = параметру ID
# $NAME = параметру NAME и т.д.
$n+=2;
last unless(defined $val[$n]);
}
-- Hиколай.
ДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДД
---
* Origin: Истина - это вовсе не то, что можно убедительно доказать (2:5056/30)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
