|
ru.perl- RU.PERL ---------------------------------------------------------------------- From : Artur Penttinen 2:5020/400 07 Aug 2000 10:42:30 To : All Subject : Re: rus -> lat --------------------------------------------------------------------------------
On Fri, 4 Aug 2000, Oleg Bakiev wrote:
> From: Oleg Bakiev <Oleg.Bakiev@p58.f109.n5061.z2.fidonet.org>
> Newsgroups: fido7.ru.perl
> X-Comment-To: Artur Penttinen
> Subject: rus -> lat
> Date: Fri, 04 Aug 2000 15:45:15 +0400
> Organization: >>> Можно я лягу? <<<
>
> Hello Artur!
>
> 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 порезать старший
> бит, то автоматом получится по-русски латинницей.
Ш,ш,щ,Щ,etc - куда девать?
WBW, Artur
--
Сам себя не похвалишь -- весь день ходишь как оплеванный !
--- ifmail v.2.15dev5
* Origin: Gamma NNTP server Moscow Russia (2:5020/400)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
Архивное /ru.perl/1172649a5cf33.html, оценка из 5, голосов 10
|