WWW::Search

See also CPAN

[ home ] - [ search ] - [ sitemap ]

require WWW::Search;

my $query = $ARGV[0];

my @search_engines = qw/Ebay AltaVista HotBot Yahoo Lycos/;

foreach my $search_engine (@search_engines) {
	print "\n*****  $search_engine  *****\...\n";

	my $search = new WWW::Search(
        	$search_engine ,
        	maximum_to_retrieve => 100,
        	agent_name          => 'Mozilla/4.03 [de]C-BLUEWIN-CH20  (Win95; I)'
	);

	$search->native_query(WWW::Search::escape_query($query));

	while (my $result = $search->next_result()) {
		print $result->url, "\n", $result->description, "\n\n";
	}

	$search->reset_search();
}