problem with LWP

mutatedgene has asked for the wisdom of the Perl Monks concerning the following question:

Hello Perl Monks

okay so i have this problem with using the LWP library.

I have jsut sttarted learning how to use it so im using this very simple program that gets the page of the given url

#!usr/bin/perl

use LWP::Simple;

getprint($ARGV[0]);

exit;
[download]

when i run this program it seems to get stuck in an infinite loop. when i ran it using the debugger this was the final error that i got when i just skipped running throught the modules

IO::Socket::connect(/usr/lib/perl5/5.8.0/i386-linux-thread-multi/IO/So
+cket.pm:121):
121:                    $err = $! || (exists &Errno::ETIMEDOUT ? &Errn
+o::ETIMEDOUT : 1);
[download]

so i ran thro the debugger line by line and as suspected it gets stuck in an infinite loop. the following are the lines of code that kept repeating as given by the debugger
im sorry if im being a little too descriptive. just that i really didnt understand whats going on so i jus copied the lines from the terminal

HTTP::Headers::CODE(0x82e8db0)(/usr/lib/perl5/site_perl/5.8.0/HTTP/Hea
+ders.pm:59):
59:         for (@header_order) {
  DB<8>

HTTP::Headers::CODE(0x82e8db0)(/usr/lib/perl5/site_perl/5.8.0/HTTP/Hea
+ders.pm:60):
60:             my $lc = lc $_;
  DB<8> s

HTTP::Headers::CODE(0x82e8db0)(/usr/lib/perl5/site_perl/5.8.0/HTTP/Hea
+ders.pm:61):
61:             $header_order{$lc} = ++$i;
  DB<8> s

HTTP::Headers::CODE(0x82e8db0)(/usr/lib/perl5/site_perl/5.8.0/HTTP/Hea
+ders.pm:62):
62:             $standard_case{$lc} = $_;
  DB<8> s
[download]

these are the four lines that keep repeating in the debugger. im not able to go beyond this

can anyone tell me what is going on andhow i solve this problem?? plz help!!. will be really grateful!!

Arvind

Edit: g0n code tags round output data

Comment on problem with LWP Select or Download Code

Replies are listed 'Best First'.

Re: problem with LWP
by fishbot_v2 (Chaplain) on Jun 03, 2006 at 01:51 UTC

So, the bit that keeps repeating in the debugger is a red herring, I think. If you take a look at that section of the code, it repeats about 40 or 50 times - it looks like an infinite loop if you step through it in the debugger, but at run time certainly less than a second. Barring an extremely broken Perl, I don't see how that code could be looping infinitely. (It just builds indexes of common HTTP headers... and at module load-time, to boot.)

My wild guess is that the socket issue is closer to the heart of the problem. Is there perhaps a proxy issue? Can you telnet to port 80 from your terminal?

[reply]

Re^2: problem with LWP

by mutatedgene (Novice) on Jun 03, 2006 at 16:13 UTC

[reply]

Re: problem with LWP
by ercparker (Hermit) on Jun 03, 2006 at 00:24 UTC

prompt>./lwp.pl http://amazon.com

#!/usr/bin/perl

use strict;
use warnings;
use LWP::Simple;

print get($ARGV[0]);

exit;
[download]

[reply]
[d/l]
[select]

Re^2: problem with LWP

by mutatedgene (Novice) on Jun 03, 2006 at 16:11 UTC

[reply]

Re: problem with LWP
by PodMaster (Abbot) on Jun 03, 2006 at 11:59 UTC

LWP::Debug


Perl-Sensitive Sunglasses
	PerlMonks