Форум Flasher.ru
Ближайшие курсы в Школе RealTime
Список интенсивных курсов: [см.]  
  
Специальные предложения: [см.]  
  
 
Блоги Правила Справка Пользователи Календарь Поиск рулит! Сообщения за день Все разделы прочитаны
 

Вернуться   Форум Flasher.ru > Архив Flasher.ru > Программирование > Perl

Версия для печати  Отправить по электронной почте    « Предыдущая тема | Следующая тема »  
Опции темы Опции просмотра
 
Создать новую тему  
Старый 15.08.2004, 16:04
P@$l-l0l-( вне форума Посмотреть профиль Отправить личное сообщение для P@$l-l0l-( Посетить домашнюю страницу P@$l-l0l-( Найти все сообщения от P@$l-l0l-(
  № 1  
P@$l-l0l-(
 
Аватар для P@$l-l0l-(

Регистрация: Jul 2004
Сообщений: 19
Отправить сообщение для P@$l-l0l-( с помощью ICQ
По умолчанию Get&post

Скажите pls, возможно ли передавать данные из формы в Perl скрипт двумя методами одновременно, я имею в виду вот что:
<form action="script.cgi?m=read&t=y" method="post">
<input type="text" name="txt">
<input type="submit" name="xxx">
</form>

Старый 17.08.2004, 19:23
  № 2  
Fyn
Guest

Сообщений: n/a
Естественно можно.
А в чём собственно проблема то?

Старый 18.08.2004, 01:22
P@$l-l0l-( вне форума Посмотреть профиль Отправить личное сообщение для P@$l-l0l-( Посетить домашнюю страницу P@$l-l0l-( Найти все сообщения от P@$l-l0l-(
  № 3  
P@$l-l0l-(
 
Аватар для P@$l-l0l-(

Регистрация: Jul 2004
Сообщений: 19
Отправить сообщение для P@$l-l0l-( с помощью ICQ
У меня почему-то глючит. Те каторые GET принимаются param('...'), а POST таким же образом нет.

Старый 18.08.2004, 11:32
  № 4  
Fyn
Guest

Сообщений: n/a
Вопрос по передаче данных здесь уже много раз обсуждался.
Я обычно, в таких случаях как у тебя, пользуюсь следующим кодом:
Код:
%param = &comming();

sub comming {
	my $dl = $ENV{CONTENT_LENGTH};
	my $query = $ENV{QUERY_STRING};
	if ($dl >0) {
	  sysread(STDIN, $que, $dl);
	  if ($query) {
	    $query = $query.'&'.$que;
	  }
	  else {
	    $query = $que;
	  }
	}
	my @comm = split('&', $query);
	my %query = ();
	foreach (@comm) {
	  /([^=]+)=(.*)/ && do {
	    local ($field, $value) = ($1, $2);
	    $query{$field} = &decode($value);
	  }
	}
	return %query;
}

sub decode {
	my($val)=@_;
	$val=~s/\+/ /g;
	$val=~s/%([0-9A-H]{2})/pack('C',hex($1))/ge;
	return $val;
}
После чего получаем хэш %param ...

А дальше совсем просто:
Код:
foreach $key (keys %param) {
	$value = $param{$key};
	print "$key => $value";
}
Работает как через GET так и через Post или при одновременной передаче данных через GET и POST.
Ещё ни разу не подводил...


Последний раз редактировалось Fyn; 18.08.2004 в 11:33.
Создать новую тему   Часовой пояс GMT +4, время: 16:19.
Быстрый переход
  « Предыдущая тема | Следующая тема »  
Опции темы
Опции просмотра

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.


 


Часовой пояс GMT +4, время: 16:19.


Copyright © 1999-2008 Flasher.ru. All rights reserved.
Работает на vBulletin®. Copyright ©2000 - 2024, Jelsoft Enterprises Ltd. Перевод: zCarot
Администрация сайта не несёт ответственности за любую предоставленную посетителями информацию. Подробнее см. Правила.