however the query doesn't go through. I am somewhat confused as to how to implement the l=pl restriction having a look at the google api the equivalent which I have drawn my inspiration from I think would be something like:http://www.alltheweb.com/search?advanced=1&cat=web&jsact=&_stype=norm& +type=all&q=%22Telewizja+Polska%22&itag=crv&_b_query=&l=pl&ics=utf-8&c +s=utf8&wf%5Bn%5D=3&wf%5B0%5D%5Br%5D=%2B&wf%5B0%5D%5Bq%5D=&wf%5B0%5D%5 +Bw%5D=&wf%5B1%5D%5Br%5D=%2B&wf%5B1%5D%5Bq%5D=&wf%5B1%5D%5Bw%5D=&wf%5B +2%5D%5Br%5D=-&wf%5B2%5D%5Bq%5D=&wf%5B2%5D%5Bw%5D=&dincl=&dexcl=&geo=& +doctype=&dfr%5Bd%5D=1&dfr%5Bm%5D=1&dfr%5By%5D=1980&dto%5Bd%5D=18&dto% +5Bm%5D=1&dto%5By%5D=2006&hits=10&nooc=off
where $language_code = "lang_pl"; Here so far is my codemy $search = WWW::Search->new('Google', key => $key, restrict => $lang +uage_code);
#! Perl\bin\perl; use WWW::Search; my $language_code="l=pl"; $query = "Telewizja Polska"; $search = new WWW::Search('AlltheWeb', restrict => $language_code); $search->native_query(WWW::Search::escape_query($query)); $search->ma +ximum_to_retrieve(100); while (my $result = $search->next_result()) { $url = $result->url; $title = $result->title; $desc = $result->descrip +tion; print $result->url, "\n"; print "<a href=$url>$title</a> $source<br>$date<br>$desc<p>\n"; }
Edit: g0n - code tags round long url
In reply to searching via www::search on alltheweb by coder45
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |