Foro - Perl en Español

por **jax2004** » 2010-08-21 09:59 @457

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.

#!/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';
}
 
Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

sale:

Sintáxis: [ Descargar ] [ Ocultar ]

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 correctaColoreado en 0.000 segundos,  usando GeSHi 1.0.8.4

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.

por **jax2004** » 2010-08-22 04:35 @232

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

por **explorer** » 2010-08-22 10:30 @479

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.

por **jax2004** » 2010-08-22 15:16 @678

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

Foro - Perl en Español

Comprobar fechas

Comprobar fechas

Publicidad

Re: Comprobar fechas

Re: Comprobar fechas

Re: Comprobar fechas

Re: Comprobar fechas

Re: Comprobar fechas

Re: Comprobar fechas

¿Quién está conectado?