Ver Tema

jax2004 · Sab Ago 21, 2010 9:59 am

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.

explorer · Sab Ago 21, 2010 10:07 am

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

jax2004 · Sab Ago 21, 2010 11:03 am

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.

explorer · Sab Ago 21, 2010 5:34 pm

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:

Syntax: [ Download ] [ Hide ]

Using perl Syntax Highlighting

#!/usr/bin/perl
use common::sense;
 
use DateTime::Format::Strptime;
 
my @fechas = qw(
    2010-08-22
    2009/02/29
    2000/04/31
    2000/02/29
    2000/1/1
);
 
my $parser = DateTime::Format::Strptime->new (
    pattern     => '%Y/%m/%d',
    locale      => 'es_ES',
    time_zone   => 'Europe/Madrid',
);
 
my $dt;
 
for my $fecha (@fechas) {
 
    $dt = $parser->parse_datetime( $fecha );
 
    say "$fecha : ", (($dt) ? 'es' : 'no es'), ' correcta';
}
 

sale:

Syntax: [ Download ] [ Hide ]

Using text Syntax Highlighting

2010-08-22 : no es correcta

2009/02/29 : no es correcta

2000/04/31 : no es correcta

2000/02/29 : es correcta

2000/1/1 : es correcta

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.

jax2004 · Dom Ago 22, 2010 4:35 am

explorer escribió:

Syntax: [ Download ] [ Hide ]

Using perl Syntax Highlighting

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

 

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').

explorer · Dom Ago 22, 2010 10:30 am

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.

jax2004 · Dom Ago 22, 2010 3:16 pm

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

Publicidad

Socializa