Forum Webscript.Ru

Программирование => Perl => Тема начата: USE от 25 Марта 2003, 10:30:32

Название: Украинские буквы в регах
Отправлено: USE от 25 Марта 2003, 10:30:32

Код: [Выделить]


$cuc = \'АБВГДЕЄЖЗИІЇЙКЛМНОПРСТУФХЦЧШЩЬЮЯЫЪЭ\';
$clc = \'абвгдеєжзиіїйклмнопрстуфхцчшщьюяыъэ\';
print $cuc."\\n";
$cuc =~ tr/\\xA8\\xC0-\\xDF/\\xB8\\xE0-\\xFF/;
print $cuc."\\n";

получается:

Код: [Выделить]


АБВГДЕЄЖЗИІЇЙКЛМНОПРСТУФХЦЧШЩЬЮЯЫЪЭ
абвгдеЄжзиІЇйклмнопрстуфхцчшщьюяыъэ

а хотелось бы получить на выходе $cuc и $clc

Название: Украинские буквы в регах
Отправлено: Oak от 26 Марта 2003, 17:41:41

напиши

tr/\'АБВГДЕЄЖЗИІЇЙКЛМНОПРСТУФХЦЧШЩЬЮЯЫЪЭ\'/\'абвгдеєжзиіїйклмнопрстуфхцчшщьюяыъэ\'/

Название: Украинские буквы в регах
Отправлено: USE от 26 Марта 2003, 17:44:02

так сейчас и есть, но хотелось как-то компактнее.