The code is the the one I saw in the Synopsis of
Net::Google
use Net::Google;
use constant LOCAL_GOOGLE_KEY => "********************************";
my $google = Net::Google->new(key=>LOCAL_GOOGLE_KEY);
my $search = $google->search();
use utf8;
my $str = "פרל";
$search->query($str);
map { print $_->URL()."\n"; } @{$search->results()};
I even checked using the is_uft8 function of Encode if the
string is in utf8 and it reported true.
Actually gaal and I have even ran tcpdump on the port and it seemed that the string was sent out correctly.
ps. It seems that the Monastery (or my browser ?) turned the real Hebrew string above into some strange representation.
|