Сделать первую букву заглавной (Perl)

В Перле есть функция ucfirst(), которая делает первую букву в строке заглавной. С латиницей проблем нет, а вот с кириллицей есть некоторые сложности.

ucfirst()

Пример в кодировке UTF-8.

#!/usr/bin/perl use open ":utf8"; use utf8; print "Content-type: text/html\n\n"; $str = 'hello, world!'; print $str.'<br>'; $str = ucfirst($str); print $str;// Hello, world! print '<br><br>'; # Кириллица $str = "привет, мир!"; print $str."<br>"; $str = ucfirst($str); print $str; // Привет, мир!

Категории

ПрограммированиеPerlСтроки в PerlСтроки

Читайте также

Комментарии