UTF-8 to WIN Без библиотекЮ лишь регулярками

[MpaK999]

как, концертировать из UTF-8 (в частности русские параметры куков) в WIN кодировку?

[MpaK999]

нашел таки таблицы перекодировки и написал сам перекодировщик, мож кому тоже пригодиться...

sub utf2win{
$GAZTECHorder=shift;
$GAZTECHorder=~s/\%u0410/А/gm;
$GAZTECHorder=~s/\%u0411/Б/gm;
$GAZTECHorder=~s/\%u0412/В/gm;
$GAZTECHorder=~s/\%u0413/Г/gm;
$GAZTECHorder=~s/\%u0414/Д/gm;
$GAZTECHorder=~s/\%u0415/Е/gm;
$GAZTECHorder=~s/\%u0416/Ж/gm;
$GAZTECHorder=~s/\%u0417/З/gm;
$GAZTECHorder=~s/\%u0418/И/gm;
$GAZTECHorder=~s/\%u0419/Й/gm;
$GAZTECHorder=~s/\%u041A/К/gm;
$GAZTECHorder=~s/\%u041B/Л/gm;
$GAZTECHorder=~s/\%u041C/М/gm;
$GAZTECHorder=~s/\%u041D/Н/gm;
$GAZTECHorder=~s/\%u041E/О/gm;
$GAZTECHorder=~s/\%u041F/П/gm;
$GAZTECHorder=~s/\%u0420/Р/gm;
$GAZTECHorder=~s/\%u0421/С/gm;
$GAZTECHorder=~s/\%u0422/Т/gm;
$GAZTECHorder=~s/\%u0423/У/gm;
$GAZTECHorder=~s/\%u0424/Ф/gm;
$GAZTECHorder=~s/\%u0425/Х/gm;
$GAZTECHorder=~s/\%u0426/Ц/gm;
$GAZTECHorder=~s/\%u0427/Ч/gm;
$GAZTECHorder=~s/\%u0428/Ш/gm;
$GAZTECHorder=~s/\%u0429/Щ/gm;
$GAZTECHorder=~s/\%u042A/Ъ/gm;
$GAZTECHorder=~s/\%u042B/Ы/gm;
$GAZTECHorder=~s/\%u042C/Ь/gm;
$GAZTECHorder=~s/\%u042D/Э/gm;
$GAZTECHorder=~s/\%u042E/Ю/gm;
$GAZTECHorder=~s/\%u042F/Я/gm;
$GAZTECHorder=~s/\%u0430/а/gm;
$GAZTECHorder=~s/\%u0431/б/gm;
$GAZTECHorder=~s/\%u0432/в/gm;
$GAZTECHorder=~s/\%u0433/г/gm;
$GAZTECHorder=~s/\%u0434/д/gm;
$GAZTECHorder=~s/\%u0435/е/gm;
$GAZTECHorder=~s/\%u0436/ж/gm;
$GAZTECHorder=~s/\%u0437/з/gm;
$GAZTECHorder=~s/\%u0438/и/gm;
$GAZTECHorder=~s/\%u0439/й/gm;
$GAZTECHorder=~s/\%u043A/к/gm;
$GAZTECHorder=~s/\%u043B/л/gm;
$GAZTECHorder=~s/\%u043C/м/gm;
$GAZTECHorder=~s/\%u043D/н/gm;
$GAZTECHorder=~s/\%u043E/о/gm;
$GAZTECHorder=~s/\%u043F/п/gm;
$GAZTECHorder=~s/\%u0440/р/gm;
$GAZTECHorder=~s/\%u0441/с/gm;
$GAZTECHorder=~s/\%u0442/т/gm;
$GAZTECHorder=~s/\%u0443/у/gm;
$GAZTECHorder=~s/\%u0444/ф/gm;
$GAZTECHorder=~s/\%u0445/х/gm;
$GAZTECHorder=~s/\%u0446/ц/gm;
$GAZTECHorder=~s/\%u0447/ч/gm;
$GAZTECHorder=~s/\%u0448/ш/gm;
$GAZTECHorder=~s/\%u0449/щ/gm;
$GAZTECHorder=~s/\%u044A/ъ/gm;
$GAZTECHorder=~s/\%u044B/ы/gm;
$GAZTECHorder=~s/\%u044C/ь/gm;
$GAZTECHorder=~s/\%u044D/э/gm;
$GAZTECHorder=~s/\%u044E/ю/gm;
$GAZTECHorder=~s/\%u044F/я/gm;
$GAZTECHorder=~s/\%u0401/Ё/gm;
$GAZTECHorder=~s/\%u0451/ё/gm;
$GAZTECHorder=~s/\%20/ /gm;
return $GAZTECHorder;
}

[Fouly]

А обратно?

[MpaK999]

хм, все просто переставь местами символы замены, пример

$GAZTECHorder=~s/М/\%u041C/gm;
$GAZTECHorder=~s/Н/\%u041D/gm;

[Fouly]

А ты сам пробовал?
Откуда вообще инфа о том, что Perl поддерживает юникод и в нем можно вызывать \%uXXXX таким образом юникод символ?

[MpaK999]

ептыть, канэшна пробовал, а зачем тада я это искал?
у меня на сайте, Ява Скрипт создает куки, но создает их в utf-8, потом перл скрипт их читает и перекодирует их таким образом, пока все нормально работает, вот...

странно, чему ты удивляешься?

[Crazy]

У меня под cygwin'ским perl'ом твой код тоже не работает.

[Crazy]

...насколько мне известно, синтаксис для задания юникодовских символов в перловских строковых константах такой: \x{####}, где #### -- код символа.

[MpaK999]

ну, странно... у меня как-то работает )) я удивлен