Подскажите, что тут неверно:
sub urlencode {
local($val)=@_;
$val=~s/\\+/ /g;
$val=~s/%([0-9A=Ha-h]{2})/pack(\'C\',hex($1))/ge;
return $val;
}
sub translate_headers {
$text = $_[0];
# Create a request
my $headers = HTTP::Headers->new(\'Accept-Language\' => "no, en",
\'Accept-Charset\' => "utf-8,KOI8-R;q=0.7,*;",
\'Accept-Encoding\' => "gzip,deflate",
\'Accept\' => "text/xml,application/xml,application/xhtml+xml,text/html;q=0.9,text/plain;q=0.8,image/png,image/jpeg,image/gif;q=0.2,*/*;q=0.1");
my $ua = LWP::UserAgent->new($headers);
$ua->agent(\'Mozilla/5.0\');
$ua->timeout(100);
my $url = "
http://www.babelfish.av.com/tr";
$text = Unicode::Japanese->new($_[0],\'euc\')->get;
# Pass request to the user agent and get a response back
my $res = $ua->post($url,
{"doit" => "done",
"intl" => "1",
"tt" => "urltext",
"trtext" => urlencode($text),
"lp" => "ja_en"});
# Check the outcome of the response
if ($res->is_success) {
$cont = $res->content;
} else {
$cont = $res->status_line, "\\n";
}
my @transarr = split("
", $cont); @transarr = split(" | ", $transarr[1]);
return $transarr[0];
}