Aprire il file di programma Perl . Inserire il cursore dove si vuole capitalizzare una stringa . Digitare il seguente codice :
$ stringa = " . Contenuto del mio stringa" ;
$ stringa = ucfirst ( $ stringa ) ; print $ stringa
;
Questo crea una variabile stringa costituita da lettere minuscole del tutto . E poi chiama la funzione ucfirst di capitalizzare il primo carattere della stringa . Il risultato della dichiarazione di stampa è " contenuto di mia stringa ".
2
Digitare il seguente codice:
$ stringa = " contenuto del mio stringa . " ;
$ stringa = uc ( $ stringa ) ; print $ stringa
;
Questo reimposta la variabile stringa . Poi , la stringa chiama la funzione uc di capitalizzare ogni carattere della stringa . Il risultato della dichiarazione di stampa è " contenuto del mio STRING ".
3
Digitare il seguente codice:
$ stringa = " contenuto del mio stringa . " ;
$ stringa = ~ s /( [ \\ w '] + ) /\\ u \\ L $ 1 /g ; print $ stringa
;
po' complicato di codice utilizza il " s operatore ///" , che sostituisce occorrenze forniti dalla prima espressione con il secondo . In questo caso , viene eseguito attraverso la stringa di trovare il primo carattere di ogni parola . Normalmente, il carattere dopo l'apostrofo sarebbe considerato una parola nuova , ma la prima espressione indica all'operatore di ignorare apostrofi . Una volta che trova quei caratteri specificati , li capitalizza . Il risultato della dichiarazione di stampa è " contenuto del mio String ".
4
Salvare il file del programma Perl ed eseguirlo nella versione di Perl .
Programmazione © www.354353.com