Perl har to funksjoner som hjelper deg kapitalisere tegn i en streng. Den " ucfirst "-funksjonen kapitaliserer bare en streng første tegnet mens " uc "-funksjonen kapitaliserer hver karakter. Denne funksjonen er nyttig når du vil sammenligne to eller flere strenger uten å bekymre tilfelle. Slå en streng i tittelen saken er mye mer vanskelig som Perl har ikke en lett tilgjengelig strengfunksjon å gjøre det. Du kan imidlertid bruke " s " operatøren for å finne de første bokstavene i hvert ord i en streng og deretter utnytte dem . Instruksjoner
en

Åpne Perl programfilen. Sett markøren der du ønsker å kapitalisere en streng. Skriv inn følgende kode :

$ string = " . Min string innhold ";

$ string = ucfirst ( $ string ) ;

print $ string ;
< p> Dette skaper en streng variabel som består av helt små bokstaver . Det kaller deretter ucfirst funksjonen for å kapitalisere det første tegnet i strengen . Resultatet av utskriften uttalelsen er " Min streng innhold. "
2

Skriv inn følgende kode :

$ string = " min string innhold. ";

$ string = uc ( $ string ) ;

print $ string ;

Dette nullstiller streng variabel . Deretter kaller strengen UC -funksjonen for å kapitalisere hvert tegn i strengen . Resultatet av utskriften uttalelsen er " MY STRING innhold. "
3

Skriv inn følgende kode :

$ string = " min string innhold. ";

$ string = ~ s /( [\\ w '] + ) /\\ u \\ L $ 1 /g ;

print $ string ;

komplisert bit av koden bruker " s ///" operatør , som erstatter forekomster som leveres av den første uttrykk med den andre . I dette tilfellet går den gjennom strengen for å finne det første tegnet i hvert ord . Normalt ville tegnet etter apostrof anses som et nytt ord , men det første uttrykket forteller operatøren å ignorere apostrofer . Når den finner de angitte tegnene , kapitaliserer det dem . Resultatet av utskriften uttalelsen er " My String innhold. "
4

Lagre Perl program filen og kjør den i din versjon av Perl.