Hvordan sjekke om en gyldig dato i Perl

Perl programmeringsspråk lar deg opprette behandlings sider for skjemaer og dynamiske data som lagres på webserveren. Når en bruker skriver inn en dato, er det viktig å sikre at datoen er gyldig. Perl "vanlige uttrykket" funksjonen gir deg muligheten til å sjekke om gyldige datoer. Koden er lang, men du kan kopiere og lime funksjonen inn i Perl sider for å innlemme datoen sjekk system.

Bruksanvisning

1 Høyreklikk på "PL" (Perl)-filen du vil redigere, og velg "Åpne med." Klikk på Perl redaktør oppført i undermenyen for å laste redaktøren og kode samtidig.

2 Lag en dato variabel hvis du ikke allerede har en definert. Følgende kode oppretter en dato som er ugyldig, så det utløser funksjonen til å svare med en "ugyldig dato" feil:

$ Dato '5/1/040';

3 Innlemme det regulære uttrykket funksjon som kontrollerer datoen gyldighet:

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

[0-9] [0-9] \ z) | ((Januar | februar | mars | April | mai | juni | juli | august | september

| Oktober | november | desember) ([1-2] [0-9] | 3 [0-1] | 0 [1-9]), (19 |? 20) [0-9] [0-9 ] \ z) /)

Denne koden kontrollerer for ugyldige numeriske representasjoner av datoer og eventuelle feil spelt måneder Dato input som stavet ut.

4 Skriv ut feilmeldingen hvis datoen er ugyldig. Tilføy følgende kode rett etter koden du allerede har lagt til:

{

print "You created a valid date";

}

else {

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

}