Нет, специально в папке поставил AddDefaultCharset utf-8. Этот текст функция возвращает (должна по мануалам возвращать) в кодировке utf-8. Только вот результат, как видите, плачевный.
Детали: пытаюсь обучить Lingua::Translate корректно работать. Указанный результат получается при попытке перевести русский текст на английский. Причём русский 100% отправляю в utf-8 и должен на выходе получить английский перевод в такой же кодировке. При переводе наоборот (с английского на русский) всё работает корректно.
Листинг для проверки (необходимо получить api-key у гугля - секундное дело):
| Код |
use Lingua::Translate;
use Encode;
Lingua::Translate::config
(
back_end => 'Google',
api_key => '',
referer => '',
);
my $stext = 'Мой текст на русском языке.';
$stext=encode("utf8", decode('cp1251',$stext));
print $stext."<br>";
my $text = Lingua::Translate->new( src => 'ru', dest => 'en' );
print $text->translate($stext) . "\n";
|
|
всегда готов