Beefy Boxes and Bandwidth Generously Provided by pair Networks
Don't ask to ask, just ask
 
PerlMonks  

Re^3: Checking for undef after performing get()

by trammell (Priest)
on Jan 10, 2006 at 15:08 UTC ( #522203=note: print w/ replies, xml ) Need Help??


in reply to Re^2: Checking for undef after performing get()
in thread Checking for undef after performing get()

Sure; I'd do something like:

my $doc = get(...); warn "get() failed" unless $doc;
I'm assuming that the page actually has content here. If it's an empty string, the test should be
... unless defined($doc);
The documenation in LWP::Simple does suggest using LWP::UserAgent if you need more information about the return code. Just a thought.


Comment on Re^3: Checking for undef after performing get()
Select or Download Code
Re^4: Checking for undef after performing get()
by sawtooth (Initiate) on Jan 11, 2006 at 16:21 UTC
    Yes, LWP::UserAgent was the ticket. This was the ideal solution that I was seeking:
    my $ua = LWP::UserAgent->new; my $response = $ua->get($url); if ($response->is_success){ (good things happen) } else { my $failmsg= ($response->status_line); (print the $failmsg) return; }
    BUT, for this to work, the web based script, after being triggered by the get(), must return some response that is part of the HTTP protocol. I added this line to the top of the web based script:
    print "Content-type: text/html\n\n";
    Otherwise you receive a 500 Internal Server Error. Thanks again for the help!

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://522203]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others chanting in the Monastery: (6)
As of 2015-07-03 18:00 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    The top three priorities of my open tasks are (in descending order of likelihood to be worked on) ...









    Results (55 votes), past polls