Beefy Boxes and Bandwidth Generously Provided by pair Networks
The stupid question is the question not asked
 
PerlMonks  

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

by trammell (Priest)
on Jan 10, 2006 at 15:08 UTC ( [id://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.

Replies are listed 'Best First'.
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
Domain Nodelet?
Node Status?
node history
Node Type: note [id://522203]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this?Last hourOther CB clients
Other Users?
Others lurking in the Monastery: (4)
As of 2025-07-17 08:38 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found

    Notices?
    erzuuliAnonymous Monks are no longer allowed to use Super Search, due to an excessive use of this resource by robots.