Beefy Boxes and Bandwidth Generously Provided by pair Networks
Perl: the Markov chain saw
 
PerlMonks  

Re: Submit Button

by kabel (Chaplain)
on Sep 26, 2002 at 03:43 UTC ( #200808=note: print w/replies, xml ) Need Help??


in reply to Submit Button

note: there is no silly question, only silly answers (free translation of a german saying)

i hope you can cope with it:
use strict; use HTTP::Request::Common qw(POST); use LWP::UserAgent; my $proxy = 'http://myproxi:8080'; my $key1 = 'Feldname1'; my $val1 = 'Feldwert1'; my $key2 = 'Feldname2'; my $val2 = 'Feldwert2'; my $key3 = 'Feldname3'; my $val3 = 'Feldwert3'; # usw my $url = 'http://www.domain.tld'; my $ua = LWP::UserAgent->new(); $ua->proxy(['http','ftp'], $proxy) if $proxy; my $re = POST $url, [$key1=>$val1,$key2=>$val2,$key3=>$val3]; my $page = $ua->request($re)->as_string; print $page;

Log In?
Username:
Password:

What's my password?
Create A New User
Domain Nodelet?
Node Status?
node history
Node Type: note [id://200808]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others rifling through the Monastery: (4)
As of 2022-12-07 19:39 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found

    Notices?