VPF::Что за кодировка? - Форум программистов

WebSurfer

Дата 6.3.2010, 19:32 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 5
Регистрация: 9.3.2008

Репутация: нет
Всего: нет

Господа, получаю ответ от модуля в utf8 (язык текста ответа - английский), но не могу правильно его отобразить. Вот такого плана текст: Ð Ð ½ Ð ³ Ð »Ð ¸ Ð ¹ Ñ Ð º Ð

В какую сторону его крутить??? smile

dva300

Дата 6.3.2010, 22:23 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 220
Регистрация: 17.2.2010
Где: Москва

Репутация: -1
Всего: 1

Цитата(WebSurfer @ 6.3.2010, 19:32)

а charset на странице у тебя часом не ISO-88.. ?

--------------------

Участник движения Культура Вождения

WebSurfer

Дата 6.3.2010, 23:24 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 5
Регистрация: 9.3.2008

Репутация: нет
Всего: нет

Нет, специально в папке поставил 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";

dva300

Дата 7.3.2010, 10:11 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 220
Регистрация: 17.2.2010
Где: Москва

Репутация: -1
Всего: 1

Цитата

Причём русский 100% отправляю в utf-8

Цитата

$stext=encode("utf8", decode('cp1251',$stext));

я такой конструкции никогда не использовал и не совсем понимаю зачем она. возможно я не прав но
perldoc дает следующее

Цитата

When you run $octets = encode("utf8", $string) , then $octets may not be equal to $string. Though they both contain the same data, the UTF8 flag for $octets is always off. When you encode anything, UTF8 flag of the result is always off, even when it contains completely valid utf8 string. See "The UTF8 flag" below.

у вас же $string уже в uft8. разве не достаточно $stext=decode('cp1251',$stext);

Это сообщение отредактировал(а) dva300 - 7.3.2010, 10:12

--------------------

Участник движения Культура Вождения

WebSurfer

Дата 7.3.2010, 14:32 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 5
Регистрация: 9.3.2008

Репутация: нет
Всего: нет

dva300, спасибо! это заработало! smile

dva300

Дата 7.3.2010, 14:58 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 220
Регистрация: 17.2.2010
Где: Москва

Репутация: -1
Всего: 1

Цитата(WebSurfer @ 7.3.2010, 14:32)

dva300, спасибо! это заработало! smile

всегда готов

--------------------

Участник движения Культура Вождения

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Perl: Общие вопросы \| Следующая тема »