Opened by perl-snaks at 2012-05-08 12:49
User since
2003-08-04
12208 Artikel
Admin1
![[Homepage]](/battie/theme/default/homepage.gif)
2003-08-04
12208 Artikel
Admin1
vielleicht einfach nochmal die doku zu LWP::UserAgent und HTTP::Response lesen.
$response ist ein HTTP::Response-objekt, und das als string ist sicher nicht das, was du willst.
gaaanz oben in der doku von HTTP::Response steht:
der *content* steht also in $response->decoded_content
zweitens sagst du parse_file, und parse_file erwartet einen *dateinamen*.
du hast aber doch gar keine datei, sondern möchtest doch vermutlich den string aus der http-response übergeben.
ergo:
my $doc = $parser->parse_string($response->decoded_content);
$response ist ein HTTP::Response-objekt, und das als string ist sicher nicht das, was du willst.
gaaanz oben in der doku von HTTP::Response steht:
Code: (dl
)
1
2
3
4
5
6
7
$response = $ua->request($request)
if ($response->is_success) {
print $response->decoded_content;
}
else {
print STDERR $response->status_line, "\n";
}
der *content* steht also in $response->decoded_content
zweitens sagst du parse_file, und parse_file erwartet einen *dateinamen*.
du hast aber doch gar keine datei, sondern möchtest doch vermutlich den string aus der http-response übergeben.
ergo:
my $doc = $parser->parse_string($response->decoded_content);
Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
lesen:
Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem
lesen:
Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem