Beefy Boxes and Bandwidth Generously Provided by pair Networks
Welcome to the Monastery

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 (Bishop) 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]
[1nickt]: choroba Updated the PR, using Config instead of exposing the hackery. Using cpanfile-dump does not work to test, as shown in the earlier PR comment, even when using a binary built for a particular Perlbrew perl, the output seems to be
[1nickt]: ... from the system perl binary. Using cpanm --installdeps . does use the expected perl and tus the check acts correctly.
[choroba]: Nice, thanks. I'll look into it later, about to leave ATM.

How do I use this? | Other CB clients
Other Users?
Others romping around the Monastery: (10)
As of 2017-10-18 16:07 GMT
Find Nodes?
    Voting Booth?
    My fridge is mostly full of:

    Results (249 votes). Check out past polls.