Foro - Perl en Español

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.

Listo, muchas gracias, ¡¡sí fue el cambio de versión!! Agrego lo que modifiqué por si alguien tiene el mismo problema.

Date_Init("ConfigFile=/usr/lib64/perl5/vendor_perl/Eflow/date/misDiasFestivos.cfg","Language=English", "DateFormat=non-US","EraseHolidays=1");

Mi archivo misDiasFestivos.cfg quedo así:

¿Has hecho pruebas de que te sale bien?

¿No le falta una línea

*Holidays

por delante, en el archivo de configuración?

Retomo el tema, porque al parecer me confundí y aún no estaba ejecutándose bien.

Archivo CGI:

Date_Init("ConfigFile=/usr/lib64/perl5/vendor_perl/Eflow/date/misDiasFestivos.cfg","Language=English", "DateFormat=non-US","EraseHolidays=1");

El archivo LOG me arroja lo siguiente:

[Tue Nov 12 09:57:23 2013] [error] [client 192.1.47.126] WARNING: [config_file] unknown section created: holiday, referer: https://192.1.47.100/cgi-bin
[Tue Nov 12 09:57:27 2013] [error] [client 192.1.47.126] WARNING: [config_file] unknown section created: holiday, referer: https://192.1.47.100/cgi-bin

Y mi archivo de configuración de días lo tengo como sigue:

*Holiday

nov 18 = revolucion
Dec 12 = dia de la virgen
Dec 19 = vacaciones
Dec 20 = vacaciones
Dec 23 = vacaciones
Dec 24 = vacaciones
Dec 25 = vacaciones
Dec 26 = vacaciones
Dec 27 = vacaciones
Dec 30 = vacaciones
Dec 31 = vacaciones
Jan 1 = Anio nuevo


¿Qué podrá ser, compañeros?

No es

*Holiday

sino

*Holidays

Mirar ejemplo en Date::Manip::ConfigFile.

Gracias, ya vi la documentación, pero no sé si tengo algo mal

Lo dejo así, a ver si con cualquiera de los tres jala.


¡¡¡Y ni aun así me funciona!!!