Cómo comprobar una fecha válida en Perl

El lenguaje de programación Perl permite crear páginas para procesamiento de formularios y datos dinámicos para almacenar en el servidor Web. Cuando un usuario escribe una fecha , es importante asegurarse de que la fecha es válida. La función de Perl " expresión regular " le da la capacidad para comprobar fechas válidas . El código es largo, pero se puede copiar y pegar la función en sus páginas de Perl para incorporar el sistema de fechas -check. Instrucciones
1

Haga clic en el "PL " ( Perl ) que desee editar y seleccione " Abrir con". Haga clic en el editor de Perl aparece en el sub - menú para cargar el editor y el código de forma simultánea.
2

Crear una variable de fecha si no tiene uno definido. El siguiente código crea una fecha que es , por lo que los viajes no válidas de la función de responder con un error "Fecha no válida ":

$ fecha '5 /1 /040 ' ;
3

Incorporar la función de la expresión regular que comprueba la validez de la fecha :

if ($ date = ~ ( [ 1-2] [ 0-9 ]