El lenguaje de programación Perl permite crear páginas de procesamiento de formularios y datos dinámicos para almacenar en su servidor Web. Cuando los tipos en una fecha un usuario, es importante asegurarse de que la fecha es válida. La función de Perl "expresión regular" le da la capacidad para comprobar si hay 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-cheque.
Instrucciones
1 Haga clic en el "PL" (Perl) el archivo que desea editar y seleccionar "Abrir con". Haga clic en el editor de Perl aparece en el submenú para cargar el editor y el código de forma simultánea.
2 Crear una variable de fecha si no tiene ya uno definido. El siguiente código crea una fecha que no es válida, por lo que dispara la función de responder con un error "Fecha no válida":
$ Date '5/1/040';
3 Incorporar la función de expresiones regulares que comprueba la validez de la fecha:
if ($ fecha = ~ / ((^ 0 [1-9] |? ^ 1 [0-2]) \ / (0 [1-9] |? [1-2] [0-9] | 3 [ 0-1]) \ / (19 | 20)?
[0-9] [0-9] \ z) | ((enero | febrero | marzo | abril | mayo | junio | julio | agosto | septiembre
| Octubre | noviembre | diciembre) ([1-2] [0-9] | 3 [0-1] | 0 [1-9]), (19 |? 20) [0-9] [0-9? ] \ z) /)
Este código comprueba si hay representaciones numéricas no válidos de las fechas y los meses de entrada en mal escritas fecha en la que se explica.
4 Imprimir el mensaje de error si la fecha no es válido. Añadir el siguiente código directamente después del código que ya ha añadido:
{
print "You created a valid date";
}
else {
print "The date you entered is invalid. Please re-enter your date value";
}