Foro - Perl en Español

Buenas tardes, ¿alguien sabe de algún módulo que compruebe si una fecha introducida es correcta? Es decir, que no tenga 31 días un mes que solo puede tener 30, y ya si tiene la función de que febrero tenga solo 29 cuando es bisiesto...

Gracias.

Pero... no nos has dicho en qué formato vas a leer la fecha... ¿ISO 8601? ¿día/mes/año? ¿otro?

En principio la fecha la leo en formato yyyy/mm/dd pero no tengo problema en pasar la fecha a día, mes y año o cambiar el formato.

Bueno, pues si en vez de las '/' hubieras usado los '-', entonces sí que serían auténticas fechas en formato ISO 8601, por lo que podrías haber usado el módulo DateTime::Format::ISO8601, así que en su lugar, usaremos uno más genérico, el DateTime::Format::Strptime:
sale:

Observa que la primera fecha no es correcta porque tiene guiones. Las dos siguientes no son correctas (no fue bisiesto el año pasado, ni abril tiene 31 días). Las siguientes sí son correctas.

Bueno, esta es una forma de hacerlo. Hay muchas más.

explorer escribiste:

Sintáxis: [ Descargar ] [ Ocultar ]

Sintáxis: [ Descargar ] [ Mostrar ]

Using perl Syntax Highlighting

  say "$fecha : ", (($dt) ? 'es' : 'no es'), ' correcta';
 

Coloreado en 0.001 segundos, usando GeSHi 1.0.8.4

Es justo lo que buscaba pero esta línea no la termino de entender. Por lo que he visto, say() es equivalente a print() con un salto de línea al final. Puesto que estoy haciendo un cgi no puedo utilizarlo. Luego lo que verdaderamente no sé que es, es lo de (($dt) ? 'es' : 'no es').

El say() se utiliza a partir de la versión Perl v5.10. Te vale con poner un 'use 5.010;' al principio del programa, para hacer uso de él. Yo uso el módulo common::sense, que lo activa, además de otras características de lo que tiene que ser un Perl moderno.

La expresión (($dt) ? 'es' : 'no es') es un operador ternario (Operador condicional).

Lo que hace es lo siguiente: si $dt contiene un valor "verdadero", entonces la expresión devuelve la cadena 'es'. Si no, devuelve la cadena 'no es'.

Lo de "verdadero" se refiere a si la variable contiene un objeto DateTime o no. Si lo contiene, es que ha conseguido analizar la $fecha que le hemos pasado, y por lo tanto, es una fecha válida.

Con esto, además de validar la fecha, conseguimos tener la fecha convertida a objeto DateTime, con lo que podremos hacer muchas operaciones relacionadas con las fechas.

Gracias, yo no lo entendía ya que estoy acostumbrado al if-elsif-else y también al print().