|
ru.cgi.perl
- RU.CGI.PERL ------------------------------------------------------------------
From : Alexey A Kudacov 2:5015/186 12 Oct 2002 18:37:12
To : Alexander Kulik
Subject : перекодировка что-ли
--------------------------------------------------------------------------------
Hi, Alexander !
11 Окт 02 10:08, Alexander Kulik НН. All:
AK> дайте длинный регексп для перекодлривки русских букв в вид
AK> РТ и т.п.
Правда не регэксп, но вполне работает ;-)
$ttc =~ s/А/\&\#1040\;/g;
$ttc =~ s/Б/\&\#1041\;/g;
$ttc =~ s/В/\&\#1042\;/g;
$ttc =~ s/Г/\&\#1043\;/g;
$ttc =~ s/Д/\&\#1044\;/g;
$ttc =~ s/Е/\&\#1045\;/g;
$ttc =~ s/Ё/\&\#1025\;/g;
$ttc =~ s/Ж/\&\#1046\;/g;
$ttc =~ s/З/\&\#1047\;/g;
$ttc =~ s/И/\&\#1048\;/g;
$ttc =~ s/Й/\&\#1049\;/g;
$ttc =~ s/К/\&\#1050\;/g;
$ttc =~ s/Л/\&\#1051\;/g;
$ttc =~ s/М/\&\#1052\;/g;
$ttc =~ s/H/\&\#1053\;/g;
$ttc =~ s/О/\&\#1054\;/g;
$ttc =~ s/П/\&\#1055\;/g;
$ttc =~ s/Р/\&\#1056\;/g;
$ttc =~ s/С/\&\#1057\;/g;
$ttc =~ s/Т/\&\#1058\;/g;
$ttc =~ s/У/\&\#1059\;/g;
$ttc =~ s/Ф/\&\#1060\;/g;
$ttc =~ s/Х/\&\#1061\;/g;
$ttc =~ s/Ц/\&\#1062\;/g;
$ttc =~ s/Ч/\&\#1063\;/g;
$ttc =~ s/Ш/\&\#1064\;/g;
$ttc =~ s/Щ/\&\#1065\;/g;
$ttc =~ s/Ъ/\&\#1066\;/g;
$ttc =~ s/Ы/\&\#1067\;/g;
$ttc =~ s/Ь/\&\#1068\;/g;
$ttc =~ s/Э/\&\#1069\;/g;
$ttc =~ s/Ю/\&\#1070\;/g;
$ttc =~ s/Я/\&\#1071\;/g;
$ttc =~ s/а/\&\#1072\;/g;
$ttc =~ s/б/\&\#1073\;/g;
$ttc =~ s/в/\&\#1074\;/g;
$ttc =~ s/г/\&\#1075\;/g;
$ttc =~ s/д/\&\#1076\;/g;
$ttc =~ s/е/\&\#1077\;/g;
$ttc =~ s/ё/\&\#1105\;/g;
$ttc =~ s/ж/\&\#1078\;/g;
$ttc =~ s/з/\&\#1079\;/g;
$ttc =~ s/и/\&\#1080\;/g;
$ttc =~ s/й/\&\#1081\;/g;
$ttc =~ s/к/\&\#1082\;/g;
$ttc =~ s/л/\&\#1083\;/g;
$ttc =~ s/м/\&\#1084\;/g;
$ttc =~ s/н/\&\#1085\;/g;
$ttc =~ s/о/\&\#1086\;/g;
$ttc =~ s/п/\&\#1087\;/g;
$ttc =~ s/р/\&\#1088\;/g;
$ttc =~ s/с/\&\#1089\;/g;
$ttc =~ s/т/\&\#1090\;/g;
$ttc =~ s/у/\&\#1091\;/g;
$ttc =~ s/ф/\&\#1092\;/g;
$ttc =~ s/х/\&\#1093\;/g;
$ttc =~ s/ц/\&\#1094\;/g;
$ttc =~ s/ч/\&\#1095\;/g;
$ttc =~ s/ш/\&\#1096\;/g;
$ttc =~ s/щ/\&\#1097\;/g;
$ttc =~ s/ъ/\&\#1098\;/g;
$ttc =~ s/ы/\&\#1099\;/g;
$ttc =~ s/ь/\&\#1100\;/g;
$ttc =~ s/э/\&\#1101\;/g;
$ttc =~ s/ю/\&\#1102\;/g;
$ttc =~ s/я/\&\#1103\;/g;
В $ttc пихай то, что нужно преобразовать. Hа выходе получишь преобразованное.
ЗЫ. Знаю, что не рационально.
Bye, Alexander!
-+- [HHГУ - Мех.Мат.] [/Mo.Nashe.Radio/ Team]
WBR, Alexey A Kudacov [ak@52.ru] SMS-mail: 2:5015/186.1 901:903/65.13
... np: Hаше Радио 100,9 FM
--- http://www.robinzonzone.nnov.ru - SMS-рассылки MTS, Bee, NCC...
* Origin: Stvsoft BBS Phone (8312) 923881 Work: 20:00 - 22:00 (2:5015/186)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
