 
lcfirst
Habemus:
- оператор перевода первой буквы в верхний регистр ucfirst
- то же, но в нижний регистр lcfirst
- оператор перевода всех первых букв слов в верхний регистр capitalize с переводом других в нижний регистр (это называется капитализация?)
| | #!/usr/bin/perl6
my $text="litania mortuorum discordans - Душераздирающая заупокойная служба";
$text=$text.ucfirst;
$text.say;
$text=$text.lcfirst;
$text.say; | | Litania mortuorum discordans - Душераздирающая заупокойная служба
litania mortuorum discordans - Душераздирающая заупокойная служба |
Хорошо. А если строка начинается с пробела?| | #!/usr/bin/perl6
my $text=" litania mortuorum discordans - Душераздирающая заупокойная служба";
$text=$text.ucfirst;
$text.say;
$text=$text.lcfirst;
$text.say; | | litania mortuorum discordans - Душераздирающая заупокойная служба
litania mortuorum discordans - Душераздирающая заупокойная служба |
Так и запишем - ucfirst и lcfirst работают с любым первым символом, в т.ч. пробелом.
Ну и капитализация...| | #!/usr/bin/perl6
my $text="NoLI tANgeRE mE - НЕ тРоЖЬ мЕНЯ";
$text.capitalize.say; | | Noli Tangere Me - Не Трожь Меня |
Bene.
# mutatio postrema: 30 Oct 2011
|