Irmawaty Nugroh Nugroho wrote:
> Hello everyone,
>
> I have installed ActiveState Perl on my computer, and it has LWP version
> 5.803. (I use perl -MLWP -le "print (LWP->VERSION)"
>
> Right now, I am trying to learn to use LWP. However, LWP doesn't seem to
> work. I tried to run a simple program with the following code:
...
> This will output: "Sorry, failed 500: Server closed connection without
> sending any data back "
> Same output for entering this on command prompt: perl -MLWP::Simple -e
> "getprint 'http://cpan.org/RECENT'"
This works fine for me on XP as does the commandline above - if it's failing for
you, you might want to re-install LWP and/or Perl if you can surf to the same
locations with your browser (basically the same code) :
use strict;
use warnings;
use LWP;
my $UA = LWP::UserAgent->new;
my $res = $UA->get("http://www.oreilly.com/";);
print $res->header('Server'), "\n";
use URI::Escape;
foreach my $word (@ARGV) {
next unless length $word;
my $url = 'http://www.altavista.com/sites/search/web?q=%22' .
uri_escape ($word) . '%22&kl=XX';
my ($content, $status, $is_success) = do_GET ($url);
if (!$is_success) {
print "Sorry, failed: $status\n";
} elsif ($content =~ m/>AltaVista found ([0-9,]+) results?/) {
print "$word: $1 matches\n";
} else {
print "$word: Page not processable, at $url\n";
}
sleep 2;
}
sub do_GET {
my $UA = LWP::UserAgent->new;
my $resp = $UA->get(@_);
return ($resp->content, $resp->status_line, $resp->is_success, $resp) if
wantarray;
return unless $resp->is_success;
return $resp->content;
}
__END__
--
,-/- __ _ _ $Bill Luebkert Mailto:[EMAIL PROTECTED]
(_/ / ) // // DBE Collectibles Mailto:[EMAIL PROTECTED]
/ ) /--< o // // Castle of Medieval Myth & Magic http://www.todbe.com/
-/-' /___/_<_</_</_ http://dbecoll.tripod.com/ (My Perl/Lakers stuff)
_______________________________________________
Perl-Win32-Users mailing list
[email protected]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
