#!/usr/bin/perl
# $Id: fetch-google-images,v 1.3 2005/02/07 14:14:53 rousse Exp $
use Getopt::Long;
use WWW::Google::Images;
use strict;
my %opts;
my $base = '';
my (%search_options, %save_options);
GetOptions(
'base=s' => \$save_options{base},
'content' => \$save_options{content},
'context' => \$save_options{context},
'summary' => \$save_options{summary},
'limit=i' => \$search_options{limit},
'regex=s' => \$search_options{regex},
'iregex=s' => \$search_options{iregex},
'min_size=s' => \$search_options{min_size},
'max_size=s' => \$search_options{max_size},
'min_width=s' => \$search_options{min_width},
'max_width=s' => \$search_options{max_width},
'min_height=s' => \$search_options{min_height},
'max_height=s' => \$search_options{max_height},
);
my $agent = WWW::Google::Images->new();
while (my $item = <>) {
chomp $item;
my $result = $agent->search($item, %search_options);
if ($result) {
mkdir($item);
$result->save_all(dir => $item, %save_options);
}
}