|
ru.perl
- RU.PERL ----------------------------------------------------------------------
From : Dmitry E. Oboukhov 2:5020/830.100 30 Jan 2008 22:29:24
To : Artem Chuprina
Subject : и снова о юникоде
--------------------------------------------------------------------------------
DEO>> разобрался
AB>>> Можно сделать так:
AB>>> # Тут у тебя $content будет с зажженным флагом.
AB>>> $content = decode('koi8-r', $content, Encode::FB_QUIET);
DEO>> нет тут дело оказалось не в флагах а в том что юникод на вебстраницах
DEO>> передается не в utf-8, а в utf-16LE
DEO>> в итоге регвыражение получилось такое:
DEO>> use Encode qw(encode decode);
DEO>> ...
DEO>> $str=~s/\&\#(\d{4})\;/encode('utf-8', decode('utf-16LE', pack('S',
DEO>> $1)))/eg;
AC> Это на каких веб-страницах он так передается!?
на всех
яндекс например
а что?
... Bad time for democracy, подвальная власть. Статуе свободы придётся упасть.
--- Mutt/1.5.17 (2007-12-11)
* Origin: Debian GNU Linux (2:5020/830.100)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
