Beefy Boxes and Bandwidth Generously Provided by pair Networks
Perl-Sensitive Sunglasses
 
PerlMonks  

Re: Checking for undef after performing get()

by trammell (Priest)
on Jan 09, 2006 at 22:20 UTC ( #522057=note: print w/ replies, xml ) Need Help??


in reply to Checking for undef after performing get()

get() doesn't set $!, so your "bad file descriptor" error message is a red herring.


Comment on Re: Checking for undef after performing get()
Re^2: Checking for undef after performing get()
by sawtooth (Initiate) on Jan 10, 2006 at 14:48 UTC
    That doesn't surprise me, but any ideas regarding the question itself?
      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.
        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://522057]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others rifling through the Monastery: (6)
As of 2014-08-01 23:36 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    Who would be the most fun to work for?















    Results (52 votes), past polls