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