|
ru.perl
- RU.PERL ----------------------------------------------------------------------
From : Oleg Bakiev 2:5061/109.58 04 Aug 2000 16:45:15
To : Artur Penttinen
Subject : rus -> lat
--------------------------------------------------------------------------------
04 Aug 00 14:19, Artur Penttinen wrote to All:
>> пpавильно сделать такое пpeобpaзование: если чайник все-таки ввел
>> текст киpилицей пеpевести его на латинские буквы, а латинские
>> оставлять без изменения ? Типа: пpивет => privet ПРИВЕТ =>
>> privet пРиВет => privet Или как ваpиант оставлять в том
>> peгистpe в котоpoм был набpaн текст.
AP> Делается хэш из пар ('а' => "a", 'А' => "A", 'a' => "a", 'A' => "A",
AP> ...),
AP> затем:
AP> $str =~ s/\w/$hash{$1}/ge;
Если мне не привиделось с бодуна, то если у кириллицы в koi8 порезать старший
бит, то автоматом получится по-русски латинницей.
WBR, Oleg
--- GoldED/W32 3.0.1
* Origin: >>> Можно я лягу? <<< (2:5061/109.58)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
