Foro - Perl en Español

Tengo este código:



y efectivamente, la respuesta es:



Ahora, tengo el mismo código pero descomento la línea de use lib ('../libs')



Ahora... efectivamente ese módulo no existe en mi libs, pero aun así no entiendo qué tiene que ver lo que me pasa ?¡?

El código que hay en el BEGIN es muy común para trabajar en proveedores de servicios de alojamiento, para permitir que el usuario pueda instalar su propio árbol de bibliotecas colgando de su directorio raíz. Eso se consigue con la modificación de @INC, y así Perl sabe dónde buscar.

La modificación de @INC se puede hacer de dos maneras: directamente, por medio de la modificación del array especial @INC, o usando 'use lib'. Pero, al final, estamos hablando de lo mismo.

Como se cuenta en perldoc lib, poner

use lib LISTA;

es lo mismo que decir

BEGIN { unshift(@INC, LISTA) }

En tu caso, estás usando los dos métodos, pero podrías simplificarlo para dejar uno solo.

Pero... tu estás agregando la ruta '../' y '../libs'. Ten en cuenta que cuando se ejecuta el cgi, lo hace dentro del directorio donde reside el cgi, por lo que la ruta de búsqueda de bibliotecas ya no será igual a cuando ejecutas el cgi desde un directorio personal. Fíjate que las rutas '../' y '../libs' son relativas a esa posición.

Quizás el mensaje de error sale porque ha ocurrido un fallo de carga o lectura o no hay suficientes permisos para acceder a esos directorios.

¿No tienes acceso al error.log del servidor web como dice el mensaje? Ahí podría haber alguna pista más. El error 500 es demasiado genérico... "Fallo de ejecución" puede significar cualquier cosa.

El único error del log es:
[Fri Jan 25 12:43:50 2013] [error] [client 190.99.147.134] File does not exist: /home/acertp3d/public_html/500.shtml

No puedo o no sé simplificarlo, porque uso el módulo Date::Calc que no me funciona si no lo instalo en el hosting, porque si lo copio al directorio libs/ pues me da error de servidor.

Ilustraré estos ejemplos:

Así me funciona bien:


Este otro me funciona bien


Este ya no me funciona. Me da error 500


Y este sí me funciona


Concluyo que mi directorio libs/ está embrujado, es más: si pongo otro directorio que exista y no sea libs/ funciona bien. Obviamente tengo que usar libs/ porque ahí tengo el resto de mis módulos, y debo usar ese BEGIN porque el módulo Date::Calc no funciona sin eso...

Las rutas están bien, el único problema es al usar el Date::Calc.

No me convence esta solución temporal. Lo que pasa es que trabajo con CGI-App así que opté por algo raro y es poner esto en inicio de mi código.

Yo haría lo siguiente: averiguar la ruta absoluta dónde quedan instalados los módulos que instalo yo, y luego, en el programa, poner el 'use lib' con esa ruta 'absoluta'.

En el caso que tuve con un alojamiento así, desde el panel de control podías mandar instalar distribuciones Perl, de la lista que te ofrecía, o la URL que podías indicar. En la página de instrucciones te daban indicaciones de que pusieras el bloque BEGIN{} como el que has mostrado, y de esa manera los programas y cgi tenían acceso a los módulos instalados.

Yo, lo primero que hice fue un pequeñísimo cgi cuya única misión era un File::Find sobre @INC, por lo que devolvía toda la lista completa de todos los archivos que podían accederse con @INC. Allí supe qué módulos estaban instalados de base y dónde se instalaban los nuevos módulos. Todas eran rutas de la forma /home/<usuario>/perl/, pero eso depende de cada sistema.

Luego, arreglé un poco el código BEGIN, para que no saturara de rutas inútiles @INC (cuanta más rutas, más lento el programa):
(naturalmente, la parte de '/perl' hay que personalizarla según cada proveedor de alojamiento)

Y ya está: una vez que hemos actualizado @INC, ya no hace falta poner 'use lib' en ningún sitio.

Es más, si tienes un conocimiento exacto de todas las rutas extra que necesitas en tus programas, puedes quitar toda la parte BEGIN{} y usar un único 'use lib' con esas rutas. Pero siempre (para evitar problemas), escritas de forma absoluta. Sería algo así (no sería necesaria la parte BEGIN{}):
(Naturalmente, estas rutas dependen de cada sistema. Solo hay que indicar las rutas extra a las que @INC ya trae por defecto).

Si tienes módulos instalados en 'libs/', entonces debes ponerlo de forma absoluta, para que quede clara dónde quieres buscar, y no en cualquier otro 'libs/' que @INC encuentre.

use lib '/home/acertp3d/libs';

Es perfecta la solucion para las rutas de librerias , ahora volvamos al problema del post.

No se que tenda mi directorio libs, pero cada vez que uso un modulo que no existe me sale error 500.

Con este codigo


El resultado es:



Pero si descomento la linea de use lib('../libs'); entonces tengo error 500 eso es ilogico, y el directorio tiene permisos 755 y fuera de eso funciona todo bien a menos que ponga un modulo que no existe.

PROBLEMA SOLUCIONADO:

explorer, me corriges, por favor, si me equivoco:

Resulta que el problema era el use CGI::Carp qw(fatalsToBrowser);
ya que este módulo no estaba en mi directorio libs/ y cuando ponía la línea

use lib('../libs');

tal como decía explorer, creo, ya no me busca más los módulos que había adicionado con BEGIN.



SI NO QUE buscaba todo en el directorio libs/, que no tenía el cgi-carp.

Entonces ahí estaba el problema, no tenía el cgi-carp en libs/ por eso el error 500 al no encontrar algún módulo, aunque el cgi-carp ya está instalado por defecto. El use lib me cambia donde busca las bibliotecas...

Considero buena opción la de explorer de poner las rutas de todas las librerías en un solo use lib.