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

[alex kuklin <alex@kuklin.ru>]

Igor Nikanov wrote:
> Приветствую, alex
>
>   
> > 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;     }
> >
> > примерно так
> >     
>
> прошу прощения - а пароль с логином где набирать ? 
>   
Посмотрите внимательно на строчку

Content => [ var1 => $var1, var2 => $var2 ]

--
Alex