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

[Artem Chuprina <ran@ran.pp.ru>]

Igor Nikanov -> debian-russian@lists.debian.org  @ Sat, 31 May 2008 23:56:52 +0400:

 >> 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;     }
 >> 
 >> примерно так

 IN> прошу прощения - а пароль с логином где набирать ? 

var1 и var2 видишь?

-- 
Artem Chuprina
RFC2822: <ran{}ran.pp.ru> Jabber: ran@jabber.ran.pp.ru

Parentheses?  What parentheses? I haven't noticed any parentheses
since my first month of Lisp programming.  I like to ask people who
complain about parentheses in Lisp if they are bothered by all the
spaces between words in a newspaper...
 -- Kenny Tilton