Perl ha due funzioni che consentono di capitalizzare caratteri di una stringa. La funzione "ucfirst" maiuscola solo il primo carattere di una stringa, mentre la funzione "uc" capitalizza ogni personaggio. Questa funzione è utile quando si desidera confrontare due o più stringhe, senza preoccuparsi di caso. Passando una stringa in caso il titolo è molto più difficile come Perl non dispone di una funzione di stringa prontamente disponibili a farlo. Tuttavia, è possibile utilizzare l'operatore "s" per trovare i primi caratteri di ogni parola in una stringa e poi capitalizzare.

istruzione

1 Aprire il file di programma Perl. Inserire il cursore dove si desidera capitalizzare una stringa. Digitare il seguente codice:

$ String = "contenuto del mio stringa.";

$ String = ucfirst ($ string);

print $ string;

Questo crea una variabile stringa che consiste in lettere minuscole del tutto. Si chiede quindi la funzione ucfirst di capitalizzare il primo carattere della stringa. Il risultato della dichiarazione di stampa è "contenuto del mio stringa."

2 Digitare il seguente codice:

$ String = "contenuto del mio stringa.";

$ String = uc ($ string);

print $ string;

Ciò 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:

$ String = "contenuto del mio stringa.";

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

print $ string;

Questo bit complicato di codice utilizza l'operatore "s ///", 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 considerata una nuova parola, ma la prima espressione indica l'operatore di ignorare apostrofi. Una volta che trova i caratteri specificati, li capitalizza. Il risultato della dichiarazione di stampa è "contenuto del mio String".

4 Salvare il file di programma Perl ed eseguirlo nella versione di Perl.