Il linguaggio di programmazione Perl consente di creare pagine di elaborazione per moduli e dati dinamici per archiviare sul server Web. Quando i tipi di utente in una data, è importante assicurarsi che la data è valida. La funzione Perl "espressione regolare" offre la possibilità di verificare la presenza di date valide. Il codice è lungo, ma è possibile copiare e incollare la funzione nelle pagine Perl per incorporare il sistema di data-check.

istruzione

1 Fare clic con il "PL" (Perl) file che si desidera modificare e selezionare "Apri con". Clicca l'editor Perl elencati nel sottomenu per caricare l'editor e il codice contemporaneamente.

2 Creare una variabile data, se non ne hai già uno definito. Il codice seguente crea una data che non è valida, in modo che viaggi la funzione di rispondere con un errore "Data non valida":

$ Date '5/1/040';

3 Incorporare la funzione di espressione regolare che controlla la validità della data di:

if ($ data = ~ / ((^ 0 [1-9] |? ^ 1 [0-2]) \ / (0 [1-9] |? [1-2] [0-9] | 3 [ 0-1]) \ / (19 | 20)?

[0-9] [0-9] \ z) | ((gennaio | febbraio | marzo | aprile | maggio | giugno | luglio | agosto | settembre

| Ottobre | novembre | dicembre) ([1-2] [0-9] | 3 [0-1] | 0 [1-9]), (19 |? 20) [0-9] [0-9? ] \ z) /)

Questo codice verifica la presenza di rappresentazioni non valide numeriche di date e gli eventuali mesi in modo non corretto di farro in ingresso data che è scritto.

4 Stampa il messaggio di errore se la data non è valida. Aggiungere il seguente codice direttamente dopo il codice che avete già aggiunto:

{

print "You created a valid date";

}

altro {

print "The date you entered is invalid. Please re-enter your date value";

}