Πώς να ελέγξει για μια έγκυρη ημερομηνία σε Perl

Η γλώσσα προγραμματισμού Perl σας επιτρέπει να δημιουργήσετε τις σελίδες επεξεργασίας για φόρμες και δυναμικών δεδομένων για την αποθήκευση στο διακομιστή σας Web . Όταν ένας χρήστης πληκτρολογεί σε μια ημερομηνία , είναι σημαντικό να εξασφαλιστεί ότι η ημερομηνία είναι έγκυρη . Η " κανονική έκφραση " Perl λειτουργία σας δίνει τη δυνατότητα να ελέγξει για έγκυρες ημερομηνίες . Ο κωδικός είναι μεγάλη , αλλά μπορείτε να αντιγράψετε και να επικολλήσετε τη λειτουργία σε σελίδες Perl σας να ενσωματώσει το σύστημα ημερομηνίας -check . Οδηγίες
Η

1 Κάντε δεξί κλικ στο " PL " ( Perl ) αρχείο που θέλετε να επεξεργαστείτε και επιλέξτε " Άνοιγμα με . " Κάντε κλικ στο πρόγραμμα επεξεργασίας Perl που αναφέρονται στο υπο - μενού για να φορτώσετε το πρόγραμμα επεξεργασίας και τον κωδικό ταυτόχρονα . 2

Δημιουργήστε μια μεταβλητή ημερομηνία, εάν δεν έχετε ήδη ορίσει μία. Ο παρακάτω κώδικας δημιουργεί μια ημερομηνία που είναι άκυρο, οπότε θα εκδρομές τη λειτουργία για να απαντήσει με ένα " μη έγκυρη ημερομηνία " σφάλμα :

ημερομηνία $ '5 /1 /040 ' ?
Εικόνων 3

Ενσωματώστε την κανονική λειτουργία έκφρασης που ελέγχει το κύρος της ημερομηνίας του :

αν ( ημερομηνία $ = ~ ( [ 1-2 ] [ 0-9 ]