|
ru.perl- RU.PERL ---------------------------------------------------------------------- From : Michael Samanov 2:550/5068.1515 26 Jul 2000 15:39:41 To : Maxim Y Zinyakov Subject : Re: Регэкспы - трансляция в цепочку букв. --------------------------------------------------------------------------------
Hello, Maxim Y.!
At Wed, 26 Jul 00 13:29:56 +0400 Maxim Y. Zinyakov wrote:
RK>> Как сочнить такой tr/../../ (и возможно ли), чтобы
RK>> "абёя" -> "abyoya"
RK>> Т.е. транслитерацию сделать...
MYZ> самый простой и топорный вариант - сделать хеш с соответствиями типа
MYZ> я => ya
MYZ> сплитить строчки и заменять элементы полученного массива на нужные.
MYZ> что-то на подобие
MYZ> @letters = split //, $str;
MYZ> for (@letters){$_ = $hash{$_}};
Hу да, зачем делать сложно: $str =~ s/([абвгд...я])/$hash{$1}/ge,
когда можно просто split, for, а потом join.
Sincerely yours, Michael (mailto:mike@vlink.ru).
--- ifmail v.2.14
* Origin: Home (2:550/5068.1515@fidonet)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
Архивное /ru.perl/794917cf4042.html, оценка из 5, голосов 10
|