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