ru.perl
- RU.PERL ----------------------------------------------------------------------
From : Oleg Ivanenko 2:5020/400 24 Feb 2003 11:39:01
To : Dmitry Petuhov
Subject : Re: cp1251 -> koi8-r
--------------------------------------------------------------------------------
Dmitry Petuhov пишет:
> Срочно! Hужен фрагмент скрипта для сабжевой перекодировки переменной.
>
sub KOI8R_2_WIN1251{
my $src=shift;
$src=~tr/ЙЦУКЕHГШЩЗХЪФЫВАПРОЛДЖЭЯЧСМИТЬБЮйцукенгшщзхъфывапролджэячсмитьбю/ижсйем
цьыгузтшбюопнкдфщъвялхрэачИЖСЙЕМЦЬЫГУЗТШБЮОПHКДФЩЪВЯЛХРЭАЧ/;
return $src;
}
sub WIN1251_2_KOI8R{
my $src=shift;
$src=~tr/ижсйемцьыгузтшбюопнкдфщъвялхрэачИЖСЙЕМЦЬЫГУЗТШБЮОПHКДФЩЪВЯЛХРЭАЧ/ЙЦУКЕH
ГШЩЗХЪФЫВАПРОЛДЖЭЯЧСМИТЬБЮйцукенгшщзхъфывапролджэячсмитьбю/;
return $src;
}
--
Truly yours, Oleg Ivanenko aka Ash
oai-ash@yandex.ru
[Все это было бы смешно, когда бы не было так грустно][Delphi][Guitar]
ICQ[119082031]
http://www.ash.hut.ru
--- ifmail v.2.15dev5
* Origin: ASKA (2:5020/400)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
