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

Agares

Дата 3.9.2008, 11:06 (ссылка)

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

Загрузка ...

Опытный

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

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

Есть парсер xls Spreadsheet::ParseExcel, когда я меняю кодировку в отпарсенных данных:

Код


if ($cell->{Code} eq 'ucs2')
                                                {
                                                        #$inf->{$i}->{$col} = decode("UCS-2BE", $cell->{Val});
                                                 } 
                                                else
                                                {
                                                        $inf->{$i}->{$col} = $cell->{Val};
                                                }

то отпарсенные данные отображаются нормально. Но вот кодировка всей страницы (кроме элементов xls) портиться decode убрать, то кодировка страницы норм, но отпарсенные данные тогда отображаются "криво".

Помогите решить проблему

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

Мой ноут: Impression First 657
ОС: Gentoo Linux

sir_nuf_nuf

Дата 3.9.2008, 12:23 (ссылка)

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

Загрузка ...

Опытный

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

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

не очень понятно, что вообще происходит..
ты парсишь XLS и выводишь результат на Web страницу вместе с другими данными ?

тогда тебе нужно сделать так, что бы данные выводимые на страницу были в одной кодировке.
Самый простой вариант - привести те данные которые ты получил их XLS к кодировки остальных.
например так:

Код


use Encode qw(from_to);
$inf->{$i}->{$col} = from_to($cell->{Val}, "UCS-2BE", "KOI8-R");
# за место KOI8 должна стоять кодировка страницы

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

Agares

Дата 4.9.2008, 10:58 (ссылка)

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

Загрузка ...

Опытный

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

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

Не помогло, но вопрос уже отпал.. спасибо

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

Мой ноут: Impression First 657
ОС: Gentoo Linux

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