Foro - Perl en Español

Parece que todo está bien, tus fechas las tienes bien puestas. Lo que habría de revisar es si tienes el archivo de configuración en el mismo directorio donde se encuentra el módulo.

Saludos

Hola, kidd.

En este directorio es donde tengo el archivo de configuración:

Dentro de ese directorio se encuentran los archivos

Entonces prueba a poner esto:

Quizás es que Date::Manip no encuentra el camino al fichero.
Otra opción es:

Ya he realizado lo que me comentas y no quiere realizar las operaciones. ¿De qué otra forma podría hacerlo?

Lo que quiero realizar que a partir de una fecha sumándole 10 días se quiten los días festivos, sábados y domingos y al final imprima la fecha correcta.

kaeri

¡¡¡Descubierto el fallo!!!




Según he comprobado, y como puedes ver, el fallo estaba en la forma de poner las fechas de las fiestas.

Otra cosa: Si pones el fichero de fiestas en el mismo directorio que el ejecutable, ya ves que no es necesario poner ningún camino al fichero.

Incluso funciona en español:

Lo he probado con la v5.42 en Suse.

Recuerda que para la v5.44 (la última) y si quieres usarlo en español, entonces hay que parchearlo como te comentaba antes.

explorer escribiste:¡¡¡Descubierto el fallo!!!

Según he comprobado y como puedes ver, el fallo estaba en la forma de poner las fechas de las fiestas.

Y según yo lo había revisado, lo bueno es que encontraste el fallo.


Saludos

Hola, buen día. Reabro el tema, ya que como aquí se menciona, no me toma en cuenta los días festivos. Inclusive instalé el Date::Manip y ahora me marca los siguientes errores:



Busqué y hay un archivo llamado DateManip.cnf, pero éste no existe en mi servidor. No sé si lo debo crear ni dónde o en qué ruta guardarlo y cómo vincularlo con mi archivo Manip.pm y mis diasfestivos.txt.

¡¡ Espero me puedan apoyar !!

Por el error yo diría que le has pasado a Data::Manip una mala configuración.

¿Puedes publicar el código que estás probando? Con las líneas que usas para definir las fechas, nos vale. Mira los ejemplos de código de los anteriores mensajes. Verás que con cuatro líneas es suficiente para ver qué estás haciendo.

¿Qué tal, explorer? Gracias por contestar... ¡¡ Te agrego el código !!

use Date::Manip; # módulo de Perl
use DBI;


use Date::Calc qw(Today Delta_Days);
use Spreadsheet::WriteExcel;

my ($sec,$min,$hour,$mday,$mes,$anio,$wday,$yday,$isdst) = localtime(time);
$mes++;
$anio+=1900;

$dateIn ="$anio-$mes-$mday";
Date_Init( "Language=English", "DateFormat=non-US","EraseHolidays=0","PersonalCnfPath=/usr/lib64/perl5/vendor_perl/Eflow/date/","PersonalCnf=misDiasFestivos.cfg");

$fechain = DateCalc("$dateIn", "+ 1 business days");

Vale, el problema es que tu módulo Date::Manip es de la versión 6, mientras que los ejemplos que hay en este hilo, y tu programa, está siguiendo las opciones de la versión 5.

Debes consultar la documentación de la configuración del módulo, pero creo que valdría con

Date_Init("ConfigFile=misDiasFestivos.cfg", ...<resto de opciones>...

Dice el manual que ConfigFile debe ir en primer lugar de Date_Init.