|
|
ru.perl- RU.PERL ---------------------------------------------------------------------- From : Serguei Trouchelle 2:550/4077.1 19 Nov 2002 16:32:54 To : Vadim Tzirulnicov Subject : POST -------------------------------------------------------------------------------- VT> Как скриптом, соединившись с сервером, вызвать CGI-скрипт и VT> передать ему в STDIN методом "POST" данные ? [...] use LWP::UserAgent; use LWP::Simple; [...] my $ua = new LWP::UserAgent; my $header = new HTTP::Headers; my $req = new HTTP::Request POST => $url, $header => $content; my $res = $ua->request($req); [...] Вpоде бы так. VT> Пробовал VT> $meethost="localhost"; VT> $port="80"; VT> socket(SOCK, PF_INET, SOCK_STREAM, getprotobyname('tcp')); [...] Serguei Trouchelle --- timEd/386 1.10.y2k+ * Origin: Раю нема на небi, всьому кiнець могила (2:550/4077.1) Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
Архивное /ru.perl/3332ddaa0f00.html, оценка из 5, голосов 10
|