Forum Webscript.Ru

Программирование => Perl => Тема начата: agat от 21 Июля 2002, 20:03:31

Название: Метод POST и GET при пересылке данных скриптом
Отправлено: agat от 21 Июля 2002, 20:03:31

Ну я вот тут что-то написал, но данные не правильно передаются. Подскажите чего не так.


#!/usr/bin/perl
print "Content-type: text/html\\n\\n";

use LWP::UserAgent;
use HTTP::Request;
use HTTP::Headers;
use CGI;

$q = new CGI("tema=tema&email=mail&name=name");

$form_data = $q->query_string;

$headers = new HTTP::Headers(
Accept => "*/*",
Referer => "http://www.gasaw.com/cgi-bin/test2.cgi",
Content-Type => "application/x-www-forum-urlencoded"
);

$request = new HTTP::Request(
"POST",
"http://www.gasaw.com/cgi-bin/rekviz2.cgi",
$headers
);

$request->content($form_data);
$agent = new LWP::UserAgent;
$agent->agent("Mozilla/4.5");
$response = $agent->request($request);

print $response->content;

Название: Метод POST и GET при пересылке данных скриптом
Отправлено: Oak от 21 Июля 2002, 23:15:51

Ты сначала скажи что такое "неправильно"
Малоли - может у тебя Русский Апаче, который все перекодирует куда не следует.