Klik rechts op de " PL " ( Perl ) -bestand dat u wilt bewerken en selecteer " Openen met . " Klik op de Perl -editor in het submenu genoteerd aan de redactie en de code gelijktijdig laden . Kopen van 2

Maak een datum variabele als je niet al een hebt gedefinieerd . De volgende code maakt een datum die ongeldig is , dus het reizen de functie om te reageren met een " ongeldige datum " error :

$ datum '5 /1 /040 '
;
3

Verwerk de reguliere expressie functie die de geldigheid van de datum van de controles :

if ( $ date = ~ ( [ 1-2 ] [ 0-9 ] | 3 [ 0-1 ] | 0 [ 1-9 ] ? ) , ( 19 | 20 ) ? [ 0-9 ] [ 0-9 ] \\ z ) /) < br >

Deze code controleert of ongeldige numerieke voorstellingen van data en elk verkeerd gespeld maanden in datum ingang die wordt gespeld .
4

Print de foutmelding als de datum is ongeldig . Voeg de volgende code direct na de code die u al hebt toegevoegd :

{

afdruk
" U hebt een geldige datum " ;

}

else {

afdruk Nieuws " De datum hebt ingevoerd is ongeldig Vul nogmaals uw valutadatum . " ;

}