Модераторы: korob2001, ginnie
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Проблемы с кодировкой в wap 
:(
    Опции темы
Dima85
Дата 5.9.2009, 11:54 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

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



wap сайт выводит как русский так и немецкий, английский и несколько других языков.
Проблема в том что некоторые мобильные телефоны некорректно выводят русский текст, некоторые немецкие буквы. Я надеюсь вы понимаете о чем я.

Пришлось прибегнуть к такому решению:
Код

my %mchars = ('А' => 'А',
'Б' => 'Б','В' => 'В','Г' => 'Г','Д' => 'Д',
'Е' => 'Е','Ё' => 'Е','Ж' => 'Ж','З' => 'З',
***
'я' => '&#x044F;','\[' => ' ','\]' => ' ',',' => '<br/>');

for my $c (keys %mchars) {
    $perevod =~ s/$c/$mchars{$c}/g;
}


Оно работает, все нормально но я не охватил все символы которые некорректно выводят мобильные телефоны.
Может есть какие-то другое решение позволяющее все символы перекодировать в коды? 
Спасибо.
PM MAIL   Вверх
sir_nuf_nuf
Дата 6.9.2009, 11:16 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

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



Dima85, Насколько я понимаю вам нужно сделать сайт в unicode (что бы отображались разные языки)
Perl поддерживает (и поощряет) кодировку utf-8.
Поэтому все что вам нужно:
1) Все данные писать в utf8
1А) Если это текстовый файл (например шаблон) - то просто используйте редактор с utf-8 и сохраните файл в этой кодировке
1Б) Если данные лежат прямо perl файле, то пишите
Код

use utf8;
my $str = "это утф-8 текст. Ya - ya!";

2) В заголовках выдваемой странице нужно указывать Content-Type:    text/html; charset=utf-8


--------------------
user posted image
user posted image
PM MAIL Jabber   Вверх
Dima85
Дата 6.9.2009, 14:29 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

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



Спасибо за совет, буду пробовать.
PM MAIL   Вверх
  
Ответ в темуСоздание новой темы Создание опроса
Правила форума "Perl"
korob2001
sharq
  • В этом разделе обсуждаются общие вопросы по языку Perl
  • Если ваш вопрос относится к системному программированию, задавайте его здесь
  • Если ваш вопрос относится к CGI программированию, задавайте его здесь
  • Интерпретатор Perl можно скачать здесь ActiveState, O'REILLY, The source for Perl
  • Справочное руководство "Установка perl-модулей", можно скачать здесь


Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, korob2001, sharq.

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


 




[ Время генерации скрипта: 0.0510 ]   [ Использовано запросов: 21 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.