On Tue, 2004-11-23 at 12:24, Rene Borchers wrote:
Yes, problem solved added the line
'User-Agent' => 'Mozilla/4.76 [en] (Win98; U)';
and indeed 33200 returned thanks
Rene
> Hi,
>
> I'am fiddling around with the LWP Class, wrote myself a program which
> sends a query to altavista.
>
> When I search altavista for dummie it returns 33.200 hits, when I use
> perl it returns 33,100 hits. Any suggestions where are the 100 missing
> hits.
>
> Rene
>
>
> #!/usr/bin/perl
> ##---------------------------------------------------------------------------
> # altavisata.pl
> #
> #
> #----------------------------------------------------------------------------
>
> use strict;
> use warnings;
> use LWP;
> use URI::Escape;
>
> my $browser;
>
>
> sub do_GET {
>
> # parameters: the url
> # and then optionally , any headerlines (key,value,key,value)
> $browser=LWP::UserAgent->new() unless $browser;
> my $resp=$browser->get(@_);
> return ($resp->content,$resp->status_line, $resp->is_success, $resp)
> if wantarray;
> return unless $resp->is_success;
> return keep->content;
> }
>
>
> foreach my $word(@ARGV) {
> next unless $word;
> my $savequery=uri_escape($word);
> my
> $url="http://www.altavista.com/web/results?itag=wrx&q=$savequery&kgs=1&kls=0";;
> my ($content,$status,$is_success)=do_GET($url);
> $content=~/(AltaVista found)\s([0-9,]+)/;
> print "$word :"," ",$1," ",$2," results","\n";
> }
>
>
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
