Foro - Perl en Español

Hola a todos, tengo una pregunta respecto a cómo cargar un módulo de forma condicional.

Tengo el siguiente código:
el cual funciona sin problemas en Windows y Linux pero no puedo hacer que cargue el módulo Win32::TieRegistry cuando llamo al script desde la consola de git en Windows.

La salida en Windows es:

La salida en Linux es:

Y la salida usando git bash en Windows es:


Asumo que el problema pasa por MINGW64/MSYS y alguna configuración de variable de entorno que confunde a perl cuando carga el módulo. La salida de env es:



¿Cuál es la manera correcta de cargar el módulo bajo MINGW64/MSYS?

¿Qué es la "consola de git"?

Hola, al instalar git en windows (https://git-scm.com/download/win), este trae consigo un terminal (mintty) que proporciona un pseudo bash con la mayoría de las utilidades que windows no posee y que si tenemos en linux (ls, cat, grep, etc) usando MINGW/MSYS.

En vez de eval() yo usaría require().

También se podría intentar con el módulo if.

Había intentado usar if, pero el mensaje de salida era el mismo (aunque quizás no lo escribí de la manera correcta). Al cambiar a require la salida es:
De ahí mi sospecha que algo está errado en las variables que define.

No, no, no... así no se resuelven las cosas... debes publicar el código que vas cambiando.

Por el mensaje de error, veo que has puesto require(), pero no has quitado el use().

Aquí hay un ejemplo de carga condicional de módulos según el sistema operativo.

Lo que creo que puede estar pasando es que al ejecutar el programa en esa consola de comandos, el Windows "desaparezca" y por eso no funcionen los módulos Win32. No creo que sea así, pero es una posibilidad.

Mil disculpas, debo quedarme con eval(). De otra manera obtengo errores. El código está así:

y la salida es:

Pero si lo uso desde la consola de Windows, la salida es:

Creo que he pillado qué es lo que sucede.

Como estaba usando Escritorio Remoto para acceder al ordenador con Windows no me percaté (y jamás me lo pregunté) que git para Windows trae un Perl "capado", por decirlo de alguna manera. Como es la misma versión del Perl que estaba instalada en ese ordenador no lograba ver que estaba errado, pero al usar $archname = $Config{'archname'}; y ver que las salidas eran distintas, recordé que esa variable muestra la arquitectura en la cual fue compilada la versión de perl y no era posible que obtuviera dos salidas distintas.

Al arrancar esa consola, reordena las variables de entorno y coloca la versión de perl que trae incluida antes de la versión que tengo instalada en Windows. En este punto creo que he quedado entrampado, no puedo agrega módulos a la versión "capada" de Perl que trae git para Windows (o me falta seguir navegando un rato).

Asumo que una vez que arranca el script, ya no puedo cambiar la ruta desde la cual lee los módulos ¿Existe alguna forma de salir del paso?

Y una consulta relacionada. En el enlace que me has dado usan un código del tipo:

¿Es necesario usar { ... } al escribir eval?

No es lo mismo $Config{'archname'} que $^O.

Puedes incluir directorios de búsqueda de paquetes (o sea, modificar el contenido de @INC) por medio de

use lib 'ruta';

El eval() tiene dos formas de funcionar. Si se le pasa una cadena (con comillas) la expresión que hay dentro se evalúa y se ejecuta cada vez que el procesador pase por esa línea.

En cambio, si a eval le pasamos un bloque (con las llaves), el contenido es interpretado una sola vez (al mismo tiempo que la línea que lo contiene es interpretada), y luego ejecutada cuando el procesador llegue allí.

La ventaja de esta segunda solución es clara: se detectan errores sintácticos en tiempo de compilación, y solo se interpreta una vez, con lo que es más rápida que la primera solución.

Más información en perldoc -f eval