Форум АНТИЧАТ - Показать сообщение отдельно - [Perl] Новичкам: задаем вопросы

Цитата:

Сообщение от genom--

ну если в консоль я помнится делал так -- но это жесть $xz='пример:';$xz=~tr/а-я/\x80-\x9f/;print "$xz"; - и большими буквами

а почему ж нельзя и маленькие буквы сделать? Ниче сложного тут нету:

Код:

sub cyr
{
	$phrase = shift;
	$phrase =~ y/А-яЁё/\x80-\xaf\xe0-\xf1/;
	return $phrase;
}

print cyr('АБВГДЕЁЭЮЯабвгдеёэюя');