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

[PaulB]

Ест что нибудь попроще? Ведь изначально, в моем случае, обращение типа $FORM{\'имя поля\'} давало значение этого поля. А если обращаюсь $FORM{\'mails[]\'} - выдает последнее значение массива.

Для проверки посылаю методом GET, выглядит так:
mails[]=asa1&mails[]=asa2&mails[]=asa3 и т.д

[NeoNox]

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

Да тут отсутствует самое главное-алгоритм работы скрипта!
Или его тщательно скрывают, чтобы мы с тобой, Green Kakadu, его не сперли.
Ты получил хэш? Да! Как с ним работать знаешь?
Если нет-http://perl.artil.ru:8101/docs/lama/g5.shtml#g501

Ничего не прячу я. Пишу скрип для конторы по рассылке прайс-листа. В админовской зоне надо сделать возможность удалять email адреса из рассылки. Формирую я их тем самым кодом, что писал выше. Теперь мне надо получить этот массив в скрипт и обработать его.

[NeoNox]

Ничего не прячу я.

О! Другое дело! Братьям-спаммерам рад всегда помочь! (это шутка если кто не понял)
А теперь с самого начала.
1. База у тебя в файле?

Ага. Вид такой:email::name::city::phone

[Green Kakadu]

Да тут отсутствует самое главное-алгоритм работы скрипта!
Или его тщательно скрывают, чтобы мы с тобой, Green Kakadu, его не сперли.

во всяком случае, мы явно чего-то не понимаем.
Например,
mails[]=asa1&mails[]=asa2&mails[]=asa3 и т.д
где тут e-mail адреса?
Вот из этой строки, кого надо получить, эти asa1, asa2?
Тогда они не в ключах, а в значениях
@mails=grep(/\\S@\\S/, values %FORM);
#Опять же, я ищу тут что-то вроде lala@lala.la, а там asa1,2,3

NeoNox
Мы явно не догоняем, как выглядит форма отправки. Думаю, если мы увидим ее в HTML варианте со значениями, то все нормально найдем.

[NeoNox]

Ага. Вид такой:email::name::city:hone

Я так и думал
2.Как записать в этот файл знаешь?
3.Как прочитать знаешь?

Green Kakadu Попробуй зайти по этой ссылке: http://213.59.17.20/cgi-bin/mailprice/mail.pl. Нажми "Удалить адресата", посмотри форму и ХТМЛ код.

[Green Kakadu]

ЁЁЁ! Нашел.
Ошибка при парсинге:

$value =~ tr/+/ /;
$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/ pack("C", hex($1))/eg;
$FORM{$name} = $value;


А надо:

$value =~ tr/+/ /;
$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/ pack("C", hex($1))/eg;
unless (exists $FORM{$name}){$FORM{$name}= $value;}
else {$FORM{$name} .=";$value"; }


А потом:
@mails=split(/;/, $FORM{\'mails[]\'}) ;
Вот!
Раньше там было последнее значение, т.к. перезаписывалось все.

[Green Kakadu]

Нажми "Удалить адресата", посмотри форму и ХТМЛ код.

Теперь понятно,
т.е. передаешь номера майлов, а потом в соотв. с номерами удаляешь,
и надо чтоб в @mails были эти самые номера, так?
Если да, то я правильно написал про изменение процедуры обработки.  (мой последний топик)
P.S. Кстати, назвал бы поле NAME как-нибудь попонятней, напр. mailnum а то всякие небуквенные символы всегда настраживают

2 NeoNox
Знаю. И пишу и читаю.


2 Green Kakadu
Сейчас попробую изменить

2 Green Kakadu
В поле name - Имя пользователя, а не номер

[Green Kakadu]

Вот что там:
Павел Черный -
В поле NAME - mails[]
а номер в значении поля, т.е. номер пользователя, как я понял

Green Kakadu
Все верно