Perl har to funktioner til at hjælpe dig kapitalisere tegn i en streng. Den " ucfirst "-funktionen udnytter kun en streng første tegn mens " uc "-funktionen udnytter hvert tegn . Denne funktion er nyttig, når du ønsker at sammenligne to eller flere strenge , uden at bekymre sig om sagen. Turning en streng til title tilfælde er meget mere vanskeligt, som Perl ikke har en let tilgængelig streng funktion til at gøre det . Men du kan bruge " s " til at finde de første tegn i hvert ord i en streng , og derefter udnytte dem. Instruktioner
1
Åben Perl program fil. Sæt markøren , hvor du vil kapitalisere en streng. Indtast følgende kode : Hej
$ string = " . Min string indhold "
$ string = ucfirst ( $ string ),
print $ string ;
< p > Dette skaber en streng variabel, der består af helt små bogstaver . Det kalder derefter ucfirst funktionen til at kapitalisere det første tegn i strengen. Resultatet af print erklæring er "My string indhold. "
2
Indtast følgende kode : Hej
$ string = " min string indhold. "
$ string = UC ( $ string ),
print $ string ,
nulstiller strengvariabel . Derefter strengen kalder uc funktionen at udnytte alle tegn i strengen . Resultatet af print erklæring er "MIN STRING indhold. "
3
Indtast følgende kode : Hej
$ string = " min string indhold. "
$ string = ~ s /( [ \\ w '] +) /\\ u \\ L $ 1 /g;
print $ string ,
Denne komplicerede stykke kode bruger " s ///"operatør , som erstatter forekomster leveret af det første udtryk med den anden . I dette tilfælde løber det gennem strengen for at finde det første tegn i hvert ord . Normalt ville tegnet efter apostrof betragtes et nyt ord , men det første udtryk fortæller operatøren at ignorere apostroffer . Når den finder disse angivne tegn , det udnytter dem. Resultatet af print erklæring er "My String indhold. "
4
Gem Perl program filen og køre det i din version af Perl.
< br >