передача данных методом POST, не используя форму @ DeForum.ru

0 Сообщения: 32 Зарегистрирован: 19.02.04

Нужно из одного Perl скрипта вызвать другой, передав ему параметры методом POST.
Формат передающей формы известен.

Я слышал, что используются сокеты и имуляция работы броузера.
Дайте ссылочку где можно об этом подробно почитать.
Заранее спасибо.

----------------
От устных обяснений тоже не откажусь

Ссылочка: www.cpan.org

[Петр],

почитать надо про LWP

Код:

use LWP::UserAgent;

 my $URL = 'http://www.ufanet.ru/cgi-bin/pager/send/pager';

  $ua = LWP::UserAgent->new;
#  $ua->proxy(['http', 'ftp'], 'http://proxy.ufanet.ru:3128');
  my $req = HTTP::Request->new(POST => $URL, new HTTP::Headers referer => 'http://www.ufanet.ru/pager/send.html');
  $req->content_type('application/x-www-form-urlencoded');
  $req->content("kodp=$kodp&n=$n&text=$text");
  my $res = $ua->request($req);

0 Сообщения: 32 Зарегистрирован: 19.02.04

MpaK999 писал(а):

[Петр],
почитать надо про LWP

Спасибо, прямо в точку :gent:

LWP - Library for WWW access in Perl - как раз, судя по названию, модуль для ентого дела.
Еще раз спасибо

нииии.… use socket; lwp далеко не везде установлен...
и rfc по http и всё... .) в принципе могу и примером "наградить" хотя аналогичные писал вроде тут уже неоднократно...

0 Сообщения: 32 Зарегистрирован: 19.02.04

vexoid писал(а):

нииии.… use socket; lwp далеко не везде установлен...

У меня установен, а мне ентого достаточно

Тем более делается всё в три строки

vexoid писал(а):

и rfc по http и всё... .)

А что такое rfc?

[Петр], Request for Comment

0 Сообщения: 32 Зарегистрирован: 19.02.04

MpaK999 писал(а):

Код:

use LWP::UserAgent;

 my $URL = 'http://www.ufanet.ru/cgi-bin/pager/send/pager';

  $ua = LWP::UserAgent->new;
#  $ua->proxy(['http', 'ftp'], 'http://proxy.ufanet.ru:3128');
  my $req = HTTP::Request->new(POST => $URL, new HTTP::Headers referer => 'http://www.ufanet.ru/pager/send.html');
  $req->content_type('application/x-www-form-urlencoded');
  $req->content("kodp=$kodp&n=$n&text=$text");
  my $res = $ua->request($req);

Лучше даже так:

use LWP::UserAgent;
my $URL = 'http://www.ufanet.ru/cgi-bin/pager/send/pager';
$ua = LWP::UserAgent->new;
# $ua->proxy(['http', 'ftp'], 'http://proxy.ufanet.ru:3128');
my $req = HTTP::Request->new(POST => $URL, new HTTP::Headers referer => 'http://www.ufanet.ru/pager/send.html', "X-Forwarded-For:" => $fakeip);
$req->content_type('application/x-www-form-urlencoded');
$req->content("kodp=$kodp&n=$n&text=$text");
my $res = $ua->request($req);

, где $fakeip генерится рандомом.
Так будет эмулироваться работа прокси, значит каждый новый вызов будет как с нового компа :mrgreen:

0 Сообщения: 32 Зарегистрирован: 19.02.04

Оффтопик: ерунда какая-то с форумом: после 2 часов ночи нет коннекта :fie:

Это только у меня так :confused:

DeДверь
Логин:
Пароль:
	Автологин