VPF::Как получить все значения из html формы

AlexanderI

Дата 29.10.2013, 16:53 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

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

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

Здравствуйте.

Подскажите, как получить все значения отправленных через html форму методом пост, если я не знаю имена всех полей ?

Если на странице использовать только этот код

Код


if ($ENV{'REQUEST_METHOD'} eq 'POST') {
    read(STDIN, $buf, $ENV{'CONTENT_LENGTH'});        
    @pai = split(/&/, $buf);
foreach $pa (@pai) {
      my ($name, $value) = split(/=/, $pa);
      $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;
      push @forms, {name=>$name,val=>$value};      
}
}

то всё работает нормально. Но если перед этим кодом подключается use CGI qw(param); и получается какое-то значение через param()

Код


$id    = param('id');

по этот код перестаёт работать.

Или например если 2 раза использовать

Код


read(STDIN, $buf, $ENV{'CONTENT_LENGTH'});
read(STDIN, $buf2, $ENV{'CONTENT_LENGTH'});

то второй перестаёт работать.

Пробывал так

Код


read(STDIN, $buf, $ENV{'CONTENT_LENGTH'});
seek STDIN, 0, 0; 
read(STDIN, $buf2, $ENV{'CONTENT_LENGTH'});

Тоже не помогло.

--------------------

Магазин детских игрушек | Авто ВАЗ

tishaishii

Дата 29.10.2013, 19:24 (ссылка)

(голосов:1)

Загрузка ...

Создатель

Профиль
Группа: Завсегдатай
Сообщений: 1262
Регистрация: 14.2.2006
Где: Москва

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

Код

use CGI qw (param) ;

print( $_ , "\t" , &param( $_ ) , "\n" ) foreach &param( ) ;

AlexanderI

Дата 30.10.2013, 07:33 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

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

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

Спасибо. Решение понравилось. Возьму на заметку.

PS: А почему так происходит, почему нельзя использовать read(STDIN, $buf, $ENV{'CONTENT_LENGTH'}) и param() вместе ?

Это сообщение отредактировал(а) AlexanderI - 30.10.2013, 07:33

--------------------

Магазин детских игрушек | Авто ВАЗ

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