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

[alex kuklin <alex@kuklin.ru>]

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;     }

примерно так