Need help in bilingual code

[Anonymous Monk]

Hi Monks, my code looks like this:

#!/usr/bin/perl

use WWW::Mechanize;

use warnings;



$im_url = 'http://www.google.co.in/imghp?hl=en&tab=wi&authuser=0';

my $mech1 = WWW::Mechanize->new(autocheck => 0, autodie => 0);

$mech1->get($im_url);

$image = 'รถแข่ง';

$mech1->form_name('f');

$mech1->field('q' => $image);

$mech1->click('btnG');

$c = $mech1->content;
if($c=~/imgurl=(.*?)\&imgrefurl/){

    $image_url = $1;

}
print $image_url."\n";

But since the search item is in thai language so the output is http://sphotos.ak.fbcdn.net/hphotos-ak-ash1/hs474.ash1/25993_107032255986100_100000379770388_145040_8025778_n.jpg </

> while when I manually search this keyword on google image,I get proper results. Anyone knows the answer, how to rectify this error?

[marto]

One answer would be to use the API provided by Google for interfacing with their systems.Automating searches the way you are attempting to is prohibited by the terms and conditions of use.

[Anonymous Monk]

FWIW, the terms have been updated http://www.google.co.in/intl/en/policies/terms/archive/20070416-20120301/

IMHO it is stupid to use Mechanize for this, to avoid google modules like WWW::Google::CustomSearch

[Anonymous Monk]

I can do this at $100/hr. Hardly 3 hours work for me. Only reply to my post by simply pasting your email ID.