In programmazione Perl , la parola chiave "rigorosa " protegge contro i costrutti di dati non sicuri . Cambia alcuni dei requisiti del codice e istruisce l'interprete per cercare alcune altre parole chiave. Utilizzando dichiarazioni severe aiuta il programma per capire meglio le vostre intenzioni , come se si intende utilizzare una subroutine per assegnare valori a una variabile , ma dimentica di definire il sub . Nel programma , è possibile specificare la dichiarazione rigorosa delle variabili , i riferimenti , le subroutine , o tutto quanto sopra . È inoltre possibile attivare la dichiarazione rigorosa ovunque all'interno del programma utilizzando i " use strict " parole chiave e spegnerlo successivamente utilizzando il "no severe " parole chiave . Istruzioni
1

Aprire un file di programma Perl . Digitare il seguente codice :

$ myVar = " Alcuni valore . " ;

Print $ myvar ;

Si noti che la prima variabile utilizza un capitale "V " e la seconda usa una piccola " v " Questo codice non genera un errore , ma in realtà non stampa nulla sullo schermo . Poiché le variabili Perl sono case-sensitive , il programma pensa che si tratta di due diverse variabili , il secondo dei quali non ha un valore . Se si modifica questa seconda variabile " $ myVar ", il programma stamperà il suo valore alla schermata
2

eliminare le righe precedenti e digitare il seguente codice : .

Uso rigoroso ;

$ myVar = " Alcuni valore . " ;

print $ myVar ;

Queste linee generare due errori di runtime , anche se le variabili hanno lo stesso nome , ma sono usati due volte. Digitando " use strict " forze dichiarazione esplicita di tutte le variabili, i riferimenti e le subroutine
3

eliminare le righe precedenti e digitare il seguente codice: .

Use strict " vars " ;

miei $ myvar = " qualche valore . " ; riferimenti

la prima riga specifica che il programma richiede solo la dichiarazione di variabili , ma non o ;

print $ myVar subroutine . La " mia " parola chiave dichiara le variabili locali . Il codice in questo esempio funziona esattamente come si desidera che
4

eliminare le righe precedenti e digitare il seguente codice :

use strict ;

mio $ . myVar = "Alcuni valore . " ;

print $ myVar ;

non rigoroso " vars " ;

$ MyVar2 = " Qualche nuovo valore . " ;

print $ MyVar2 ;

La prima linea richiede la dichiarazione di variabili, i riferimenti e le subroutine . La quarta linea ferma il programma di richiedere la dichiarazione rigoroso solo per le variabili . Questo permette la variabile $ MyVar2 da utilizzare senza dichiararlo
5

eliminare le righe precedenti e digitare il seguente codice :

use strict " refs " ;

$ myVar = " Alcuni valore . " ;

$ ref = " myVar " ; print

$ $ ref;

noti che questo esempio viene specificato solo per utilizzare i riferimenti rigorosi , il che significa che va bene a non dichiarare la variabile qui . Se si è utilizzato semplicemente " use strict ", invece , si dovrebbe usare il " mio ", parola chiave di fronte a entrambi myVar $ e $ ref dichiararli . Tuttavia, la terza linea ancora genera un errore perché si è tentato di utilizzare $ ref come riferimento scalare
6

eliminare le righe precedenti e digitare il seguente codice: .

Use strict " refs " ;

$ myVar = " Alcuni valore " ; .

$ ref = \\ $ myVar ; print

$ $ ref;

Il terzo linea in questo esempio viene utilizzato il backslash per dichiarare il riferimento alla variabile $ myVar , che consente di usarlo senza generare un errore
7

eliminare le righe precedenti e digitare il seguente codice: .

$ myVar = mySub ;

print $ myVar ;

" mySub " vuole essere un po 'di subroutine che si deve ancora definire , Perl assegna " mySub " come stringa valore di $ myVar e stampe che la parola alla schermata
8

eliminare le righe precedenti e digitare il seguente codice :

uso rigoroso " subs " ;

. $ myVar = mySub ;

print $ myVar ;

La prima linea richiede subroutine da dichiarare . Se è stato codificato " mySub " precedentemente nel programma , il valore di ritorno da esso viene assegnato a $ myVar , altrimenti viene generato un errore di run -time .

• Come abilitare Perl in Snow Leopard 
• Come suddividere Oltre URL in Perl