The OpenNET Project / Index page

[ новости/++ | форум | wiki | теги ]

Преобразование текста из UTF-8 в KOI8-R и обратно на языке Perl
Преобразование из UTF-8 в KOI8-R:

   use Unicode::Map8;
   use Unicode::String qw(utf8);
   my $koi8 = Unicode::Map8->new("koi8-r");
   $koi8_string = $koi8->to8(utf8($utf8_string)->utf16);

Обратное преобразование 

   use Unicode::Map8;
   use Unicode::String qw(utf16);
   my $koi8 = Unicode::Map8->new("koi8-r");
   $utf8_string = utf16($koi8->to16($koi8_string ))->utf8; 


Другой метод:

   use Encode;
   $koi8_text = from_to($utf8_text, "utf8", "koi8-r");
   $utf8_text = from_to($koi8_text, "koi8-r", "utf8");
 
17.08.2004
Ключи: charset, koi8-r, utf-8, unicode, perl / Лицензия: CC-BY
Раздел:    Корень / Программисту и web-разработчику / Perl / Полезные подпрограммы на Perl / Работа с сетью и IP адресами на Perl

Обсуждение [ RSS ]
 
  • 1, Вася, 01:05, 16/09/2014 [ответить] [смотреть все]
  • +/
    [Tue Sep 16 03:04:07.176444 2014] [:error] [pid 15279] Undefined subroutine &ModPerl::ROOT::ModPerl::Registry::var_www_html_proxy143_2etk_view_msg_2epl::utf16 called at /var/www/html/proxy143.tk/view_msg.pl line 105.\n
     

    Ваш комментарий
    Имя:         
    E-Mail:      
    Заголовок:
    Текст:



      Закладки на сайте
      Проследить за страницей
    Created 1996-2017 by Maxim Chirkov  
    ДобавитьРекламаВебмастеруГИД  
    Hosting by Ihor