Beefy Boxes and Bandwidth Generously Provided by pair Networks
Welcome to the Monastery
 
PerlMonks  

Re: Need help desperately on codes

by growlf (Pilgrim)
on Oct 23, 2001 at 16:30 UTC ( [id://120762]=note: print w/replies, xml ) Need Help??


in reply to Please review simple code to extract lines from a webpage description

Wow. I spent an hour on this - and found nothing. Even after looking in the module itself and trying all the examples in all the pages on perldoc.com and the ActiveState POD references.

I used this code to test a theory though:
#!/usr/bin/perl use WWW::Search; my $oSearch = new WWW::Search('AltaVista'); my $sQuery = WWW::Search::escape_query("FreeBSD Security"); $oSearch->native_query( $sQuery, { search_url=>"http://altavista.com/sites/search/web" }); print "QRY:".$sQuery."\n"; print "MAX:".$oSearch->maximum_to_retrieve(100)."\n"; my $response = $oSearch->response(); if ($response->is_success) { print "Results:\n"; @results = $oSearch->results(); foreach $result (@results) { print $result->url(), "\n"; }; } else { print "error: " . $response->as_string() . "\n"; }
The escape_query works fine (tested with several different engines even - it DOES change) but no matter what i did (even specifying the search url which i kyped directly from the AltaVista search form) it retrieved no results but DID get a response.

One other thing of note - if i gave it a bogus search_url - i still got an 'OK' response and no errors.

Log In?
Username:
Password:

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

How do I use this?Last hourOther CB clients
Other Users?
Others contemplating the Monastery: (6)
As of 2024-04-19 06:40 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found