The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.

NAME

WWW::Google::Images - Google Images Agent

VERSION

Version 0.6.5

DESCRIPTION

This module may be used search images on Google. Its interface is heavily inspired from WWW::Google::Groups.

SYNOPSIS

    use WWW::Google::Images;

    $agent = WWW::Google::Images->new(
        server => 'images.google.com',
        proxy  => 'my.proxy.server:port',
    );

    $result = $agent->search('flowers', limit => 10);

    while ($image = $result->next()) {
        $count++;
        print $image->content_url();
        print $image->context_url();
        print $image->save_content(base => 'image' . $count);
        print $image->save_context(base => 'page' . $count);
    }

Constructor

new(%args)

Creates and returns a new WWW::Google::Images object.

Optional parameters:

server => $server

use $server as server.

proxy => $proxy:$port

use $proxy as proxy on port $port.

$agent->search($query, %args);

Perform a search for $query, and return a WWW::Google::Images::SearchResult object.

Optional parameters:

limit => $limit

limit the maximum number of result returned to $limit.

min_width => $width

limit the minimum width of result returned to $width pixels.

min_height => $height

limit the minimum width of result returned to $height pixels.

min_size => $size

limit the minimum size of result returned to $size ko.

max_width => $width

limit the maximum width of result returned to $width pixels.

max_height => $height

limit the maximum width of result returned to $height pixels.

max_size => $size

limit the maximum size of result returned to $size ko.

ratio => $ratio

limit the width/height ratio of result returned to $ratio (+/- tolerance).

ratio_delta => $ratio_delta

set the tolerance limit for the ratio limit to $ratio_delta (default: 1.0).

regex => $regex

limit the result returned to those whose filename matches case-sensitive $regex regular expression.

iregex => $regex

limit the result returned to those whose filename matches case-insensitive $regex regular expression.

COPYRIGHT AND LICENSE

Copyright (C) 2004-2006, INRIA.

This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself.

AUTHOR

Guillaume Rousse <grousse@cpan.org>