Foro - Perl en Español

Hola,

Quisiera que, por favor, me ayuden.

Tengo un programa Perl que se conecta a una base de datos y me baja información a un archivo Excel. Este me funciona perfectamente en Windows XP pero lo corro en cualquier equipo con Windows 7 y no funciona No sé si es por el Windows y/o procesos, Excel o configuración del sistema.

Básicamente en Windows 7 me deja ingresar el campo a consultar de la base de datos y cuando intenta bajar la información al Excel no pasa nada (la conexión de la Oracle está perfecta). El Excel no se cierra ni me advierte nada

El error que saca es: Died at programa.pl line 265, <stdin> line 1.

¡Gracias!

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

¿Y qué es lo que hay en la línea 265 de programa.pl.

Es que, a ciegas, es difícil de acertar...

¡¡¡Gracias!!!

En la línea está

$workbook -> SaveAs($DirAct."/documento.xls") or die $!;

Cabe aclarar que los sistemas en los que estoy probando son de Win32.

Hola.

Pues dice que muera si no encuentra el directorio :S ¿Te aseguraste de que exista o que tenga la extensión correcta?

Pues... poco se puede decir...

El error sale porque no ha podido realizar la operación de grabación del archivo documento.xls.

¿Qué módulo estás usando para crear el XLS?

Son estos los que uso:



En realidad, haciendo un debug del programa, veo que realiza el proceso y no se está guardando por algún motivo en Windows 7, o será Excel.

Como dice hreyes, ¿has comprobado que $DirAct contiene un valor correcto?

Con solo una línea, no veo nada raro. Lo extraño es que no dé más información. ¿No se puede activar el debug con el OLE?

¿Y mirando en los registros de actividad de Windows? Es más: ¿Windows 7 tiene registros de actividad?

¡Gracias!

Bueno, creo que ya identifiqué el problema, y es la forma de identificar la ubicación del archivo, en el programa lo tenía de la siguiente forma:

$file= $DirAct."\Archivo_$fecha{$br}.xls";

donde $DirAct es la forma de obtener la dirección (getcwd).

El problema es que esa dirección me trae algo así: C:/New folder/carpeta.\archivo_$fecha{$br}.xls y por esos '/' no me dejan guardar los archivos, pero si llamo la dirección completa C:\\New folder\\carpeta\\Archivo_$fecha{$br}.xls sí lo guarda, perfectamente.

Pero la idea no es dejar que se ejecute ese programa solamente en C: sino en cualquier dirección, por ello el $DirAct, entonces estoy tratando de conseguir una forma de que esa dirección me permita guardar....

En los Windows modernos (desde hace ya bastantes años), se puede usar el delimitador '/' en las rutas de los directorios, para que sean iguales que en UNIX. En el entorno MSDOS y Windows seguirás viendo en pantalla los '\', pero a nivel de Perl puedes usar '/', así que la línea anterior la puedes escribir como


o mejor

o incluso

Gracias.

Ese es el problema: que con ninguno de esos funciona, a menos que yo quite el $DirAct y ponga la ruta completa c:\\carpeta\\carpeta\\archivo.xls, pero, evidentemente de esa manera no es una solución debido a que no siempre va a ser C:.