Re: открыть интернет-сес сию с помощью wget

Sat, 31 May 2008 04:28:52 -0700 

Vitaliy wrote:
про микроскоп согласен, а вот если бы было проще, топикстартер уже бы написал 5-6 строк... 

#!/usr/bin/perl

                                               
use strict;

use LWP::UserAgent;
use LWP::Simple;

                                                                         
my $url = 'http://....... <http://foo.com/flarp>';
                                             
my $ua = LWP::UserAgent->new;

my $res = $ua->post(
     $url,
     Content_Type => 'form-data',
     Content => [ var1 => $var1, var2 => $var2 ]
   );
if ( $res->is_success() ){  warn $res->content;    }
   else{       warn $res->error_as_HTML;     }

примерно так


--
To UNSUBSCRIBE, email to [EMAIL PROTECTED]
with a subject of "unsubscribe". Trouble? Contact [EMAIL PROTECTED]























					Ответить