ru.cgi.perl

 
 - RU.CGI.PERL ------------------------------------------------------------------
 From : Konstantin Tokar                     2:5020/400     23 Oct 2003  23:22:07
 To : Nikolay Ignatov
 Subject : Re: metod post
 -------------------------------------------------------------------------------- 
 

 Здравствуйте, Nikolay.
 
 Вы писали Thursday, October 23, 2003, 21:08:08:
 
 NI>        Здpавъ будь _*All*_! Азъмь исть _*Nikolay*_ _*Ignatov*_
 NI> Вызываю скpипт из скpипты напpимеp так script.pl?t=1
 NI> хочу чтоб не было видно то что я пеpедаю хочу чтоб было пpосто script.pl, а
 NI> паpаметpы пеpедавались методом post, но как его сфоpмиpовать кpоме как чеpез
 NI> фоpму я не знаю:(, подскажите, пожалуйста как это сделать пpосто из
 NI> скpипта...
 
 Есть примеры в LWP, вот например (use strict отсутствует, ты его
 обязательно добавь!!!)
 
 # Create a user agent object
   use LWP::UserAgent;
   $ua = LWP::UserAgent->new;
 
   $ua->agent("MyApp/0.1 ");
 
   # Create a request
   my $req = HTTP::Request->new(POST =>
 'http://www.perl.com/cgi-bin/BugGlimpse');
   $req->content_type('application/x-www-form-urlencoded');
   $req->content('match=www&errors=0');
   # Pass request to the user agent and get a response back
   my $res = $ua->request($req);
   # Check the outcome of the response
   if ($res->is_success) {
       print $res->content;
   } else {
       print "Bad luck this time\n";
   }
 
 --- ifmail v.2.15dev5
  * Origin: Demos online service (2:5020/400)
 
 

Вернуться к списку тем, сортированных по:

Тема:    Автор:    Дата:    metod post   Nikolay Ignatov   23 Oct 2003 22:08:08   Re: metod post   Konstantin Tokar   23 Oct 2003 23:22:07