|
ru.cgi.perl
- RU.CGI.PERL ------------------------------------------------------------------
From : Hunter 2:5020/400 17 Dec 2001 15:32:06
To : All
Subject : Массив из формы в скрипт
--------------------------------------------------------------------------------
кусок кода, который формирует форму с массивом: for ($i=0; $i<=$count-1;
$i++){($mail,$name,$city,$phone) = split(/\::/, $allmail[$i]);
print "<INPUT TYPE=\"checkbox\" NAME=\"mails[]\"
VALUE=\"$i\"><b><u>$name</u> - <FONT COLOR=\"#003300\">$mail</ FONT> - <FONT
COLOR=\"#990000\">$city</b></ FONT><BR>\n";}. Т.е. в массив заносятся номера
выбранных email адресов, делаю сабмит. Теперь, как мне эти данные поиметь?
Код извлекаю вот этим:
if ($ENV{'REQUEST_METHOD'} eq "POST")
{
read(STDIN, $bufer, $ENV{'CONTENT_LENGTH'});
}
else
{
$bufer=$ENV{'QUERY_STRING'};
}
#End -------------------------
# Decode data ----------------
@pairs = split(/&/, $bufer);
foreach $pair (@pairs)
{
($name, $value) = split(/=/, $pair);
$name =~ tr/+/ /;
$name =~ s/%([a-fA-F0-9][a-fA-F0-9])/ pack("C", hex($1))/eg;
$value =~ tr/+/ /;
$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/ pack("C", hex($1))/eg;
$FORM{$name} = $value;
}
Обращаюсь так: @mails=$FORM{'mails[]'}, но выдается только последнее
значение из массива.
В чем проблемы могут быть? Поможите кто может.
Если можно на примере.
--- ifmail v.2.15dev5
* Origin: OOO BIS (2:5020/400)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
