Форум АНТИЧАТ > ПРОГРАММИРОВАНИЕ > PHP [Perl] Новичкам: задаем вопросы

   

Опции темы

Поиск в этой теме

Опции просмотра

Предыдущая   Следующая

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

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