perl6.suОсвоим perl6 к 2015 году!

ucfirst


       (в 2012.08 lcfirst было убрано, зато добавлено tclc)
       Habemus:
       - оператор перевода первой буквы в верхний регистр ucfirst
       - то же, но в нижний регистр lcfirst
       - оператор перевода всех первых букв слов в верхний регистр capitalize с переводом других в нижний регистр (это называется капитализация?)
    
#!/usr/bin/perl6
my $text="litania mortuorum discordans - Душераздирающая заупокойная служба";
$text=$text.ucfirst;
$text.say;
Litania mortuorum discordans - Душераздирающая заупокойная служба

       # $text=$text.lcfirst;
       # $text.say;
       Хорошо. А если строка начинается с пробела?
    
#!/usr/bin/perl6
my $text=" litania mortuorum discordans - Душераздирающая заупокойная служба";
$text=$text.ucfirst;
$text.say;
 litania mortuorum discordans - Душераздирающая заупокойная служба

       # $text=$text.lcfirst;
       # $text.say;
       Так и запишем - ucfirst и lcfirst работают с любым первым символом, в т.ч. пробелом.
       Ну и капитализация...
    
#!/usr/bin/perl6
my $text="NoLI tANgeRE mE - НЕ тРоЖЬ мЕНЯ";
$text.capitalize.say;
$text="NoLI tANgeRE mE - НЕ тРоЖЬ мЕНЯ";
$text.tclc.say;
Noli Tangere Me - Не Трожь Меня
Noli Tangere Me - Не Трожь Меня

       Bene.
# mutatio postrema: 14 Oct 2012

   capitalize, lcfirst, tclc, ucfirst      charta situs       nota XCV   

    RSS     stdin@perl6.su    © Alexius Karmanov, 2010-2011