|
ru.cgi.perl
- RU.CGI.PERL ------------------------------------------------------------------
From : Artem Chuprina 2:5020/400 04 Jan 2002 12:20:45
To : Maxim Vavilov
Subject : Re: отправить POST'ом
--------------------------------------------------------------------------------
Здравствуй, Maxim Vavilov.
MV> Почитав доку по перлу, решил что вот так:
MV> -=cut=-
MV> #!/usr/bin/perl -w
MV> use LWP::UserAgent;
MV> $ua = LWP::UserAgent->new;
MV> my $req = HTTP::Request->new(POST =>
MV> 'http://localhost/cgi-bin/refer2.cgi'); content_type('application/x-www-form
MV> -urlencoded'); content('name=Maxim&password=test'); my $res =
MV> $ua->request($req); print $res->as_string; -=cut=- Да. Запускаясь из перла
MV> оно работает. А вот из под Апача - нет.
Обычно это означает, что из-под апача твоему скрипту запрещено ходить в сеть.
В случае тестирования дома под Win9x недавно кто-то рассказывал про такую
проблему, связанную с тем, что это Win9x.
MV> И потом оно
MV> пользует библиотеку. Можно ли написать что-нить типа:
MV> -=cut=-
MV> #!/usr/bin/perl -w
MV> use strict;
MV> use Socket;
MV> my ($port, $host, $url, $sin, $full_url);
MV> $port = 80;
MV> $host = "localhost";
MV> $url = "/cgi-bin/refer2.cgi";
MV> $sin = sockaddr_in($port,inet_aton($host));
MV> $full_url="GET ".$url." HTTP/1.0\n";
MV> connect(Socket_Handle,$sin);
MV> send (Socket_Handle,$full_url,0);
MV> send (Socket_Handle,"Content-Type: application/x-www-form-urlencoded\n",0);
MV> send (Socket_Handle,"Content-Length: 26\n",0);
MV> send (Socket_Handle,"name=Maxim&password=test\n",0);
MV> -=cut=-
MV> Оно у меня, правда, тоже не работает.. но я к тому, что бы не пользовались
MV> библиотеки и работало шустрее и у большинства провайдеров.
Шустрее точно не будет. И на половину сайтов тоже ходить не будет. Ибо
name-based virtual hosts. LWP, в отличие от тебя, об этом знает...
--
Artem Chuprina
Communiware.net
RFC2822: <ran@ran.pp.ru>, FIDO: 2:5020/358.49, ICQ: 13038757
Отправлено через сервер Talk.Ru - http://www.talk.ru
--- ifmail v.2.15dev5
* Origin: Talk.Ru (2:5020/400)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
Re: отправить POST\'ом 