Beefy Boxes and Bandwidth Generously Provided by pair Networks
Perl: the Markov chain saw

Need help in bilingual code

by Anonymous Monk
on Nov 29, 2012 at 05:14 UTC ( #1006156=perlquestion: print w/replies, xml ) Need Help??
Anonymous Monk has asked for the wisdom of the Perl Monks concerning the following question:

Hi Monks, my code looks like this:
#!/usr/bin/perl use WWW::Mechanize; use warnings; $im_url = ''; 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 </

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

Replies are listed 'Best First'.
Re: Need help in bilingual code
by marto (Archbishop) on Nov 29, 2012 at 07:10 UTC

    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.

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

        Thanks for giving a useless reply. Looser

        if you want to violate the terms of service, don't come asking for help here, we don't like to help folks violate terms of service , good bye

        You can not even spell loser, this tells us all we need to know

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: perlquestion [id://1006156]
and dust plays in a shaft of sunlight...

How do I use this? | Other CB clients
Other Users?
Others wandering the Monastery: (8)
As of 2018-05-24 20:03 GMT
Find Nodes?
    Voting Booth?