perlquestion
patgas
<p>I was putting together a little code to grab the XML from [User Nodes Info XML Generator], and I only seem to be getting a newline back from that node. I've tried substituting [Newest Nodes XML Generator], which works, and [Node Query XML Generator], which doesn't. I'm completely stumped. Can anyone offer me a little advice?</p>
<code>
#!/usr/bin/perl -w
use strict;
use HTTP::Cookies;
use LWP::UserAgent;
use URI::URL;
my $user = 'USER_NAME_HERE';
my $password = 'PASSWORD_HERE';
my $agent = new LWP::UserAgent();
my $cookie = new HTTP::Cookies(
file => 'cookies.dat',
autosave => 1
);
$agent->cookie_jar( $cookie );
my $url = new URI::URL 'http://perlmonks.org/index.pl';
$url->query_form(
op => 'login',
node_id => '109',
lastnode_id => '131',
user => $user,
passwd => $password
);
my $request = new HTTP::Request 'GET', $url->as_string();
my $result = $agent->request( $request );
die "Error logging in: $result->code $result->message"
if ( !$result->is_success );
$url = new URI::URL 'http://perlmonks.org/index.pl';
$url->query_form( node => "User Nodes Info XML Generator" );
$request = new HTTP::Request 'GET', $url->as_string();
$result = $agent->request( $request );
die "Error receiving results: $result->code $result->message"
if ( !$result->is_success );
print '->', $result->content, '<-';
</code>
<p><strong>"We're experiencing some Godzilla-related turbulence..."</strong></p>