Модераторы: korob2001, ginnie
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Обработка checkbox (динамич. кол-во) 
:(
    Опции темы
Morgul
Дата 16.7.2005, 14:54 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 3
Регистрация: 16.7.2005

Репутация: нет
Всего: нет



приветствую.
вот хотелось бы мне знать - как мне обработать динамически генерируемое количество чекбоксов? Обычно параметры я получаю так:
use CGI qw(:standard);
$query = new CGI;
for ('q','aid', 'said') {
next unless defined $_;
$tp = $query->param($_);
${$_} = $tp;
}

это пример.
но я не могу в этот for запихать 100 параметров, - как-то глупо.
может кто подскажет?

PS. до сих пор обходился тем, что скидывал все параметры в файл, потом считывал и анализировал. но это некрасиво, непрактично и т.п.
PM MAIL   Вверх
korob2001
Дата 16.7.2005, 16:14 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Комодератор
Сообщений: 2871
Регистрация: 29.12.2002

Репутация: 31
Всего: 61



Всё великое в простом.

Всем checkbox'ам присвой одинаковые имена, а затем получай их в массив:
Код

my @check_group = $query->param('chboxes');

В итоге, в массиве будут сохранены значения всех чекбоксов, которые имеют имя chboxes, в том порядке, в котором они появляются в твоей html страничке. Тоже можно вытворять и с другими элементами формы, например: file, radio, text и т.д.

Удачи.

ЗЫ: это очень упрощает загрузку нескольких файлов на сервер, т.е. когда на странице есть форма с динамическим добавлением полей для выгрузки файла, например: как на Yandex'е цепляются аттачменты.

Это сообщение отредактировал(а) korob2001 - 16.7.2005, 16:19


--------------------
"Время проходит", - привыкли говорить вы по неверному пониманию. 
"Время стоит - проходите вы".
PM MAIL WWW ICQ MSN   Вверх
sharq
Дата 18.7.2005, 16:45 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Perl Liker
**


Профиль
Группа: Участник
Сообщений: 841
Регистрация: 13.12.2004
Где: Ростов-на-Дону

Репутация: 23
Всего: 28



Morgul ой как странно ты их раньше обрабатывал...
Почитай документацию к модулю CGI! Реально разберешься smile

Пока ты читаешь доку, вот тебе пример, когда все значения и параметры, переданные скрипту, у тебя в хеше:
Код
use strict;
use CGI;

my $q = new CGI;
my $param = $q->Vars;

print $q->header(-charset => 'windows-1251'),
      $q->start_html('Использование модуля CGI'),
      $q->h1('Скрипту переданы следующие ключевые слова и параметры:');

print $q->h2("$_: $param->{$_}") foreach (keys %{$param});

print $q->end_html();

smile


--------------------
[color=gray]There's More Than One Way To Do It[/color]
PM MAIL WWW ICQ Skype   Вверх
Morgul
Дата 19.7.2005, 00:36 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 3
Регистрация: 16.7.2005

Репутация: нет
Всего: нет



короб2001
спасибо.


sharq
я этот код где-то позаимствовал. Мне он показался получше, чем прописывать 10-30 строк query. Иногда скрипты реально гигантские получаются, вот там параметров-то хватает.
PM MAIL   Вверх
  
Ответ в темуСоздание новой темы Создание опроса
Правила форума "Perl"
korob2001
sharq
  • В этом разделе обсуждаются общие вопросы по языку Perl
  • Если ваш вопрос относится к системному программированию, задавайте его здесь
  • Если ваш вопрос относится к CGI программированию, задавайте его здесь
  • Интерпретатор Perl можно скачать здесь ActiveState, O'REILLY, The source for Perl
  • Справочное руководство "Установка perl-модулей", можно скачать здесь


Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, korob2001, sharq.

 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Perl: Общие вопросы | Следующая тема »


 




[ Время генерации скрипта: 0.0395 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.