in reply to Re: Re: Running Perl program using backquotes
in thread Running Perl program using backquotes
With POST you'll need#!/usr/bin/perl -w use strict; use LWP::Simple; my $result = get(http://www.perlmonks.com/index.pl?node_id=131");
Greetz#!/usr/bin/perl -w use strict; use LWP::UserAgent; use URI::URL; my $WWWAgent = new LWP::UserAgent(); my $url=new URI::URL 'http://www.perlmonks.org/index.pl'; $url->query_form(node_id => "131"); my $WWWRequest = new HTTP::Request 'POST', $url->as_string() ; my $WWWResult = $WWWAgent->request($WWWRequest); die "Error logging in $WWWResult->code $WWWResult->message" if(!$WWWRe +sult->is_success); print $WWWResult->content;
|
|---|