Perl har två funktioner som hjälper dig att kapitalisera tecken i en sträng . Den " ucfirst " Funktionen aktiverar bara en sträng första tecknet medan " uc " funktionen kapitaliserar varje tecken . Den här funktionen är användbar när du vill jämföra två eller flera strängar utan att oroa fallet . Turning en sträng till versal är mycket svårare eftersom Perl inte har en lättillgänglig sträng funktion att göra så . Däremot kan du använda " s " operatör för att hitta de första tecknen i varje ord i en sträng och sedan kapitalisera dem . Instruktioner
1
Öppna Perl programfilen . Sätt markören där du vill att kapitalisera en sträng . Skriv följande kod :
$ string = " . Min string innehåll ";
$ string = ucfirst ( $ string ) ;
print $ string ;
Detta skapar en sträng variabel som består av enbart gemener . Det anropar sedan ucfirst funktionen att kapitalisera det första tecknet i strängen . Resultatet av trycket uttalande är " Min sträng innehåll . "
2
Skriv följande kod :
$ string = " min string innehåll . " ;
$ string = uc ( $ string ) ;
print $ string ,
Detta återställer strängen variabeln . Därefter anropar strängen UC funktionen att kapitalisera varje tecken i strängen . Resultatet av trycket uttalande är " MIN STRING innehåll. " Addera 3
Skriv följande kod :
$ string = " min string innehåll . " ;
$ string = ~ s /( [ \\ w ' ] + ) /\\ u \\ L $ 1 /g ;
print $ string ,
komplicerad bit kod använder " s ///" operatör , som ersätter händelser som tillhandahålls av det första uttrycket med det andra . I detta fall löper den genom sträng för att hitta det första tecknet i varje ord. Normalt skulle tecknet efter apostrofen betraktas ett nytt ord , men det första uttrycket säger operatören att ignorera apostrofer . När den hittar de angivna tecknen , aktiverar det dem . Resultatet av trycket uttalande är " My String innehåll. "
4
Spara Perl programfil och köra det i din version av Perl .
