Массив из формы в скрипт

[PaulB]

Передать массив из формы в скрипт - передаю.
Как мне его там заюзать? В РНР несложно - получил и использую $maillist[]. А как на перле?

[PaulB]

Если можно, пишите мылом, а то в инете я не всегда, а почту забираю регулярно...

[NeoNox]

мыло ушло...

[PaulB]

Это я уже читал. Как массив внутри скрипта использовать я знаю. Мне нужно знать, как принять его для обработки в скрипт.  Вот кусок кода, который формирует форму с массивом: for ($i=0; $i<=$count-1; $i++){($mail,$name,$city,$phone) = split(/\\::/, $allmail[$i]);
print "$name - $mail - $city
\\n";}. Т.е. в массив заносятся номера выбранных email адресов, делаю сабмит. Теперь, как мне эти данные поиметь?

[NeoNox]

Мне нужно знать, как принять его для обработки в скрипт.

То есть ты не можешь принять данные из формы в скрипт?

[PaulB]

Да.
Код извлекаю вот этим:
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[]\'}, но выдается только последнее значение из массива.
В чем проблемы могут быть?

[NeoNox]

RTFM однозначно!
Как думаешь, что делает эта строка?
$FORM{$name} = $value;
Это, друг, хэш, с ключем $name и значением $value. Так и используй его, не трогай масив.

[NeoNox]

Если хочешь поместить значения хеша в масив-
@array=%FORM;
после этого у тебя в масиве будут и ключи (нечетные значения ака $array[1]...) и значения (соответственно четные $array[2]...)
А вообще вариантов реализации-море...

[Green Kakadu]

Судя по форме, которую он создает, ему нужны майлы, т.е. ключи,
т.е. :
@mails= keys %FORM;
И все.

[PaulB]

Ребята, я в Перле новичек. Не могли бы Вы поподробнее.
Как реально можно использовать это?
Если можно, пример, плз.

[NeoNox]

дык уже написали...
Вот что у тебя разбирает форму:
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;
}
все это дело помещается в хэш %FORM
а далее как говорит Green Kakadu только ключи в масив
@mails= keys %FORM; (масив содержит только ключи хэша, то есть мейлы)

 или все скопом в
@mails=%FORM; (масив содержит и ключи и значения хэша)

а дальше работай с масивом...

[Green Kakadu]

Как реально можно использовать это?

А что надо.
Вот получил ты массив с мейлами ну и чего еще надо?
Может тогда аналог на php приведешь (раз ты аналогию в начале провел) и тогда мы поймем что требуется

Например,
@mails= keys %FORM;

дает тебе массив из майлов, т.е. элементы:
$mails[1]="первый мейл",
$mails[2]="второй мейл",
и т.д.

[PaulB]

На РНР:
for ($i=0; $i<=$count-1; $i++){($mail,$name,$city,$phone) = split(/\\::/, $allmail[$i]);
print "$name - $mail - $city
\\n";}
строчка аналогичная.
Обращаюсь в скрипте вот именно так, как и писали:
$mails[1]="первый мейл"
$mails[2]="второй мейл"

А здесь, выдает только последнее значение.
Еще один нюанс. Кроме массива mails[], передаются еще поля, action, например. Как тогда быть. В хеше есть два ключа: mails[] и action.

[Green Kakadu]

угу, да мы про другие поля как-то того, забыли.
Тогда чтоб у тебя были чисто майлы можно написать так:

@mails=grep(/\\S+@\\S+/, keys %FORM);
Если есть особое желание, то можно майлы проверить и поусердней, вместо /\\S+@\\S+/ вписать например такое:
/(\\w\\d-)+@(\\w\\d-\\.)+\\w{2,4}/
ну если есть подозрения ,что твои майлы в форме могут попортить (там же ничего не стоит заменить на иные значения)

[Green Kakadu]

"$name

mails[] - это же не один просто майл, а их кучка, так?
как оно выглядит?
или это $mails[$i]?