ru.cgi.perl

 
 - RU.CGI.PERL ------------------------------------------------------------------
 From : Michael Samanov                      2:550/5068.1515 08 Aug 2000  12:48:53
 To : kron@beep.ru
 Subject : Re: Вопросик..
 -------------------------------------------------------------------------------- 
 

 Hello, kron@beep.ru!
 
 At Tue, 08 Aug 00 09:59:35 +0400 kron@beep.ru wrote:
 
 SS>>> Есть чужой скpипт на дpугом сеpвеpе, мне нужно из своего скpипта
 SS>> получить
 SS>>> pезультат pаботы чужого. Как это можно pеализовать?
 SS>> LWP.
 
 kbr> А это что?
 
 Модуль такой. Берется на CPAN-е, а, может, даже и в самом перле есть.
 
 Вот тебе егойный пример.
 
          # Create a user agent object
          use LWP::UserAgent;
          $ua = new LWP::UserAgent;
          $ua->agent("AgentName/0.1 " . $ua->agent);
 
          # Create a request
          my $req = new HTTP::Request 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";
          }
 
 Sincerely yours, Michael (mailto:mike@vlink.ru).
 --- ifmail v.2.14
  * Origin: Home (2:550/5068.1515@fidonet)
 
 

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