Foro - Perl en Español

por **cathan22** » 2015-02-05 21:38 @943

Hola.

Soy muy nuevo en esto de Perl y necesito ayuda.

El código que tengo lo que hace es recibir una fecha y un número (serán los días). El número se resta a la fecha actual para establecer la fecha de vencimiento.

Lo que necesito mejorar es que solo cuente los días laborales, saltándose los sábados y domingo, y si no es muy complicado, los feriados.

El código es el siguiente:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

my $diasvcto = $ARGV[1];
my $fecha = 2015-02-04;
 
($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) =
                                          localtime(time - ($diasvcto * 86400));
$year += 1900;
$mon += 1;      
my $fechavcto = "$year-$mon-$mday";
 
if ($fecha = $fechavcto)
{
   print ("Vencido");
}
else
{
   print ("Aún no vence");
}
 
Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

Bienvenido a los foros de Perl en Español, cathan22.

Pues... lo siento, pero el tema es muy complicado, si lo quieres hacer a mano.
Con localtime() puedes saber si el día es sábado o domingo, y tomarlo como día laborable o no.
Pero el problema son los días feriados: te obliga a mirar, por cada día, si coincide con alguno de los feriados que tengas en una lista.

Usando un hash, en Perl, se simplifica el problema, pero aún así, son muchas líneas.

Por estos foros ya hemos hablado y resuelto el problema, con la ayuda del módulo Date::Manip. Te pido que leas ese mensaje, donde aparece un ejemplo exacto a lo que quieres. Con una sola línea de programa se resuelve el problema, pero para llegar a esa línea, hizo falta mucha investigación (ver los correos anteriores a ese).

Pruébalo, y si tienes problemas, nos avisas.

Foro - Perl en Español

Sumar días laborales

Sumar días laborales

Publicidad

Re: Sumar días laborales

¿Quién está conectado?