Программирование > Perl

Перевод

<< < (2/2)

NeoNox:
Biggelow скорость зависит от скорости соединения ваших серверов и от скорости самого сервера babelfish. Только качество перевода.. это не для серьезного сайта - точно. А то получится как у Мадонны с русскими вентиляторами.

Biggelow:
Подскажите, что тут неверно:

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];
}

Biggelow:
Ну что мне никто не может помочь?

Phoinix:
Biggelow

--- Цитировать ---$val=~s/%([0-9A=Ha-h]{2})/pack(\'C\',hex($1))/ge;
--- Конец цитаты ---


Может скажешь что пишет error_log?

Навигация

[0] Главная страница сообщений

[*] Предыдущая страница