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

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> utf2win, Перекодировка! 
:(
    Опции темы
rcdimon
Дата 15.2.2006, 11:51 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

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

Нормальная support-команда достаточно хорошо следит за своим программным обеспечением.


Вот когда летом, наконец, поставлю на площадку свой севрер, вот тогда будте УВЕРЕНЫ! У меня стоит самый новый перл и модули, какие мне нужны smile)) А пока приходится просить админов ставить.. они сами далеки от перла. неохотно это делают
PM MAIL ICQ   Вверх
nitr
Дата 16.2.2006, 06:19 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


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

Репутация: 37
Всего: 84
rcdimon, тож пригодиться:
Код

sub koi2win{
  my $str = shift;
  $str =~ tr/БВЧЗДЕЈЦЪЙКЛМНОПРТУФХЖИГЮЫЭЯЩШЬАСбвчздеіцъйклмнопртуфхжигюыэящшьас/абвгдеёжзийклмнопрстуфхцчшщъыьэюяАБВГДЕЁЖЗИЙКЛМНОПРСТУФХЦЧШЩЪЫЬЭЮЯ/;
  return $str;
} 

sub translit{
   my $text = shift;
   $text =~ s/ё/e/g; $text =~ s/Ё/E/g; 
   $text =~ s/ж/zh/g; $text =~ s/Ж/ZH/g; 
   $text =~ s/х/h/g; $text =~ s/Х/H/g; 
   $text =~ s/ч/ch/g; $text =~ s/Ч/CH/g;
   $text =~ s/щ/sc/g; $text =~ s/Щ/SC/g; 
   $text =~ s/ш/sh/g; $text =~ s/Ш/SH/g; 
   $text =~ s/э/e/g; $text =~ s/Э/E/g; 
   $text =~ s/ю/ju/g; $text =~ s/Ю/JU/g; 
   $text =~ s/я/ja/g; $text =~ s/Я/JA/g; 

   $text =~ tr/абвгдезийклмнопрстуфцыьъ/abvgdezijklmnoprstufcy'`/;
   $text =~ tr/АБВГДЕЗИЙКЛМНОПРСТУФЦЫ/ABVGDEZIJKLMNOPRSTUFCY/;
   return $text;
} 



--------------------
user posted image
user posted image
I love ArchLinux
PM   Вверх
rcdimon
Дата 21.2.2006, 16:50 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

Репутация: 1
Всего: 2
Где Text::Iconv можно взять для PPM ?
PM MAIL ICQ   Вверх
sharq
Дата 21.2.2006, 17:25 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Perl Liker
**


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

Репутация: 23
Всего: 28
rcdimon,
Цитата(rcdimon @ 21.2.2006, 17:50 Найти цитируемый пост)
Где Text::Iconv можно взять для PPM ?

здесь.

smile


--------------------
[color=gray]There's More Than One Way To Do It[/color]
PM MAIL WWW ICQ Skype   Вверх
rcdimon
Дата 24.2.2006, 13:44 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

Репутация: 1
Всего: 2
Признаться честно- так и не нашел где же там его можно скачать.... smile
PM MAIL ICQ   Вверх
rcdimon
Дата 24.2.2006, 16:23 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

Репутация: 1
Всего: 2
Все, нашел. Нужно было всего-то в Google.com набрать Text::Iconv ppd и перейти по первой ссылке smile


НО он не может мне помочь! Глюки какие-то!

Код

use Text::Iconv;
use XML::RSS;
use LWP::Simple;

my $conv = Text::Iconv->new("UTF-8", "WINDOWS-1251");

my $content =get('http://xxx.xx/xml.rss');

my $rss = new XML::RSS;
        $rss->parse($content);

foreach my $item (@{$rss->{'items'}}) {

my $ntitle        = $item->{title};
$ntitle =  $conv->convert( $ntitle );
print $ntitle; # Выдает что-то типа этого- Г‘åðèÿ ГўГЁГ¤ГҐГ®ГЄГ Г°ГІ Club 3D Radeon X1900
}



Выдает ужасную абракадабру!

Прошу еще раз обратить внимание- что коды символов, котрые выдает XML::RSS- ord() бывают больше тысячи!
Если взять просто строку в UTF-8 или считать ее из файла- то все отлично перекодируется. А вот из XML::RSS НИКАК! smile

Это сообщение отредактировал(а) rcdimon - 24.2.2006, 16:27
PM MAIL ICQ   Вверх
nitr
Дата 24.2.2006, 17:07 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


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

Репутация: 37
Всего: 84
Код

use Encode qw(from_to);

...
from_to($str, 'utf8', 'cp1251');
...



--------------------
user posted image
user posted image
I love ArchLinux
PM   Вверх
rcdimon
Дата 24.2.2006, 18:26 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

Репутация: 1
Всего: 2
Этим я уже пользовался. И как раз, когда это мне не помогло, пошел эксперементировать с Text::Iconv
PM MAIL ICQ   Вверх
nitr
Дата 24.2.2006, 18:49 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


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

Репутация: 37
Всего: 84
Код

use Unicode::Map();

my $map = Unicode::Map->new('CP1251');
...
$str = $map->from_unicode($str);
...


Вот экспериментируй smile http://search.cpan.org/~mschwartz/Unicode-Map-0.112/Map.pm

Это сообщение отредактировал(а) nitr - 24.2.2006, 18:50


--------------------
user posted image
user posted image
I love ArchLinux
PM   Вверх
rcdimon
Дата 24.2.2006, 19:06 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

Репутация: 1
Всего: 2
А что это за штука? При чем тут UTF-16?
PM MAIL ICQ   Вверх
rcdimon
Дата 26.2.2006, 00:37 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

Репутация: 1
Всего: 2
Ужасные траблы с кодировкой именно в консоле! Когда программа запущена из под веба- то с кодировкой все ок!

А в консоле начиает глючить! на вставке в базу данных особенно.. совсем не понимаю в чем дело! помогите пожалуйста smile smile
Добавлено @ 00:38
Чем для программы на перл отличается запуск из консоли от запуска через веб?
PM MAIL ICQ   Вверх
nitr
Дата 26.2.2006, 00:45 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


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

Репутация: 37
Всего: 84
Консоль.... KOI8-R =)))


--------------------
user posted image
user posted image
I love ArchLinux
PM   Вверх
rcdimon
Дата 26.2.2006, 09:27 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

Репутация: 1
Всего: 2
Ну во первых не кои8 а cp866
а во вторых мне все равно надо сделать что бы все работало!

Я где-то видел какой-то маленький код, который изменяет кодиковку стандартного выходного потока! Можно указать свою! И это действительно работало! Но мне тогда это было не нужно и я потерял куда-то.... Кто нить знает че нить по этой теме?
Добавлено @ 09:31
В реальных условиях программа будет работать под Unix. Сейчас же для разработки я использую винду и денвер.
PM MAIL ICQ   Вверх
nitr
Дата 26.2.2006, 22:07 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


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

Репутация: 37
Всего: 84
чего? у тебя не *nix сервер? Для меня это странно ;) Да и даже под виндой cp866, думаю глупо... А свой выходной поток просто в файл перенапрявь, вот и решение проблем!!! А так глупо... в консоле результат глядеть smile


--------------------
user posted image
user posted image
I love ArchLinux
PM   Вверх
rcdimon
Дата 26.2.2006, 22:13 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

Репутация: 1
Всего: 2
Да я не в консоле его гляжу!

Я получаю данные, которые мне передает XML::RSS, перекодирую их из utf-8 в cp1251 и записываю в базу данных! И в базе такая мура!

Если в эту же базу пистаь через Perl программу, которая работает через веб- то все ок.

Код

чего? у тебя не *nix сервер?


В нормальных условиях программа будет работать под *nix, но при разработке я использую денвер!
PM MAIL ICQ   Вверх
Страницы: (3) Все 1 [2] 3 
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Perl"
korob2001
sharq
  • В этом разделе обсуждаются общие вопросы по языку Perl
  • Если ваш вопрос относится к системному программированию, задавайте его здесь
  • Если ваш вопрос относится к CGI программированию, задавайте его здесь
  • Интерпретатор Perl можно скачать здесь ActiveState, O'REILLY, The source for Perl
  • Справочное руководство "Установка perl-модулей", можно скачать здесь

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, korob2001, sharq.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Perl: Общие вопросы | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




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


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

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