Foro - Perl en Español

Hola, compañeros.

Tengo un problemilla curioso. Instalé con cpan Image::Grab.

Cuando ejecuto el script .pl manualmente por consola, me descarga la imagen en un directorio local. Si programo este mismo script en el crontab entonces me sale un error de que no encuentra dicha biblioteca o paquete... con el siguiente mensaje:

Versión de Perl: This is perl, v5.10.1 (*) built for i686-linux-thread-multi

En la cabecera del script, cargo las siguientes bibliotecas...



¿Me podéis aconsejar?

Gracias

¿Alguna idea para solucionarlo?

Cuando ponemos un programa bajo el crontab, éste se ejecutará con otra personalidad (otro usuario) o con otros permisos o entorno (la variable $PATH, por ejemplo). Entonces, si nuestro programa depende de bibliotecas externas, debe saber cómo llegar a ellas.

Lo primero es saber dónde está instalada el módulo Image::Grab.

Ejecuta:

perl -E 'use Image::Grab; say $INC{"Image/Grab.pm"}'

El resultado es la ruta hacia donde está esa biblioteca. Entonces, solo queda agregarla con un "use lib" a tu programa.

Por ejemplo, si está instalada en

/usr/lib/perl5/site_perl/5.10.1/Image/Grab.pm

entonces debes poner, al principio del programa:

use lib '/usr/lib/perl5/site_perl/5.10.1';

P.D. Es extraño que solo salgan esas rutas en el mensaje de error. Deberían salir más. Prueba a ejecutar perl -V

Hola explorer,

Al hacer perl -V, me aparece lo siguiente... Tengo otros módulos instalados y no me dan problema. Hace unas semanas hice un update del Perl.

Código: Seleccionar todo

[enric@localhost ~]$ perl -V
Summary of my perl5 (revision 5 version 10 subversion 1) configuration:
   
  Platform:
    osname=linux, osvers=2.6.18-348.1.1.el5, archname=i686-linux-thread-multi
    uname='linux localhost.localdomain 2.6.18-348.1.1.el5 #1 smp tue jan 22 16:24:03 est 2013 i686 athlon i386 gnulinux '
    config_args='-de -Dusethreads'
    hint=recommended, useposix=true, d_sigaction=define
    useithreads=define, usemultiplicity=define
    useperlio=define, d_sfio=undef, uselargefiles=define, usesocks=undef
    use64bitint=undef, use64bitall=undef, uselongdouble=undef
    usemymalloc=n, bincompat5005=undef
  Compiler:
    cc='cc', ccflags ='-D_REENTRANT -D_GNU_SOURCE -fno-strict-aliasing -pipe -fstack-protector -I/usr/local/include -D_LARGEFILE_SOURCE -D_FILE_OFFSET_BITS=64',
    optimize='-O2',
    cppflags='-D_REENTRANT -D_GNU_SOURCE -fno-strict-aliasing -pipe -fstack-protector -I/usr/local/include'
    ccversion='', gccversion='4.1.2 20080704 (Red Hat 4.1.2-54)', gccosandvers=''
    intsize=4, longsize=4, ptrsize=4, doublesize=8, byteorder=1234
    d_longlong=define, longlongsize=8, d_longdbl=define, longdblsize=12
    ivtype='long', ivsize=4, nvtype='double', nvsize=8, Off_t='off_t', lseeksize=8
    alignbytes=4, prototype=define
  Linker and Libraries:
    ld='cc', ldflags =' -fstack-protector -L/usr/local/lib'
    libpth=/usr/local/lib /lib /usr/lib
    libs=-lnsl -ldl -lm -lcrypt -lutil -lpthread -lc
    perllibs=-lnsl -ldl -lm -lcrypt -lutil -lpthread -lc
    libc=/lib/libc-2.5.so, so=so, useshrplib=false, libperl=libperl.a
    gnulibc_version='2.5'
  Dynamic Linking:
    dlsrc=dl_dlopen.xs, dlext=so, d_dlsymun=undef, ccdlflags='-Wl,-E'
    cccdlflags='-fPIC', lddlflags='-shared -O2 -L/usr/local/lib -fstack-protector'


Characteristics of this binary (from libperl):
  Compile-time options: MULTIPLICITY PERL_DONT_CREATE_GVSV
                        PERL_IMPLICIT_CONTEXT PERL_MALLOC_WRAP USE_ITHREADS
                        USE_LARGE_FILES USE_PERLIO USE_REENTRANT_API
  Built under linux
  Compiled at May  8 2013 00:21:18
  %ENV:
    PERL5LIB="/home/enric/perl5/lib/perl5:/home/enric/perl5/lib/perl5:"
    PERL_LOCAL_LIB_ROOT=":/home/enric/perl5:/home/enric/perl5"
    PERL_MB_OPT="--install_base /home/enric/perl5"
    PERL_MM_OPT="INSTALL_BASE=/home/enric/perl5"
  @INC:
    /home/enric/perl5/lib/perl5/i686-linux-thread-multi
    /home/enric/perl5/lib/perl5
    /home/enric/perl5/lib/perl5/i686-linux-thread-multi
    /home/enric/perl5/lib/perl5
    /usr/local/lib/perl5/5.10.1/i686-linux-thread-multi
    /usr/local/lib/perl5/5.10.1
    /usr/local/lib/perl5/site_perl/5.10.1/i686-linux-thread-multi
    /usr/local/lib/perl5/site_perl/5.10.1

¿Ves alguna cosa rara?
Saludos,

Lo raro son las rutas predefinidas en @INC...

En mi servidor Debian, son estas:
Se ven las rutas principales del sistema, además de las local/.

En el ordenador de casa, me sale:
Lo mismo que antes, aparecen todas las rutas del sistema.

En una instalación perlbrew, con el último Perl disponible, sale:
que es algo lógico, porque se trata de una instalación local de un usuario.

No nos dices dónde está instalado Image::Grab. Si no está en alguna de las rutas que @INC muestra, deberás decírselo en el programa, con la solución del 'use lib'.

Hola, explorer.

Ahora ya encuentra el módulo, he puesto la dirección en la que se encuentra:


El tema es que actualmente utilizo perl v5.10.1:


La mayoría de los módulos los tengo duplicados en varias carpetas, una para cada versión de Perl, y en local, un lio:

Pero por defecto entiendo que busca en la carpeta de perl-5.10.1, porque cuando ejecuto perl -v aparece esta versión.

En el caso de Grab.pm...

y por esta razón he de redireccionarlo...

Si intento instalar de nuevo este paquete con CPAN, en teoría, ¿tendría que instalarlo en el directorio en la nueva versión de perl-5.10-1? Pero no lo hace, dice que ya está pero realmente no... con el root, entro en cpan... install Image::Grab

Os pego la salida de cpan, ¿diría que me está diciendo que ya está instalado?

Código: Seleccionar todo

[root@localhost enric]# cpan

cpan shell -- CPAN exploration and modules installation (v2.00)
Enter 'h' for help.

cpan[1]> install Image::Grab
CPAN: Storable loaded ok (v2.20)
Reading '/root/.cpan/Metadata'
  Database was generated on Tue, 21 May 2013 19:53:02 GMT
CPAN: LWP::UserAgent loaded ok (v6.05)
CPAN: Time::HiRes loaded ok (v1.9719)
Fetching with LWP:
http://www.perl.org/CPAN/authors/01mailrc.txt.gz
CPAN: YAML loaded ok (v0.84)
Reading '/root/.cpan/sources/authors/01mailrc.txt.gz'
CPAN: Compress::Zlib loaded ok (v2.06)
............................................................................DONE
Fetching with LWP:
http://www.perl.org/CPAN/modules/02packages.details.txt.gz
Reading '/root/.cpan/sources/modules/02packages.details.txt.gz'
  Database was generated on Tue, 28 May 2013 20:07:17 GMT
............................................................................DONE
Fetching with LWP:
http://www.perl.org/CPAN/modules/03modlist.data.gz
Reading '/root/.cpan/sources/modules/03modlist.data.gz'
............................................................................DONE
Writing /root/.cpan/Metadata
CPAN: Module::CoreList loaded ok (v2.18)
Image::Grab is up to date (1.4.2).

¿Cómo puedo saber dónde me está instalando ahora el cpan, los módulos?

Gracias por vuestra ayuda... Ahora el script funciona, pero debería aclararme con este tema del cpan.

Saludos

Me encontré hace poco que los módulos cPanel tienen algo nuevo para encontrar donde están instalado los módulos:

Usando Su Perl Module(s)

Your Perl script needs to know how to find the modules in your path.
You can do this by adding one of the two choices below to the top of your script:
#!/usr/bin/perl
use cPanelUserConfig;
or

#!/usr/bin/perlml

eso en el caso de cPanel, pero generalmente yo suelo tener un directorio donde están mis módulos y con use lib "mi_ruta" los encuentra sin problemas.

Por defecto, el cpan instalará los módulos en el directorio site-perl/ del sistema, si ejecutas cpan como root. Si no eres root o no puede escribir en ese directorio, entonces intentará cargar local::lib para intentar instalar los módulos de forma local.

La configuración de cpan se saca con

cpan -J

queda grabada en /root/.cpan/CPAN/MyConfig.pm

Pero ahí no se indica la ruta de instalación.

Esto lo tienes explicado en la pregunta I am not root, how can I install a module in a personal directory? que está en la página de manual de CPAN(3pm) (no la página de manual de cpan).

En ese página hay otra pregunta interesante: "He instalado una nueva versión del módulo X pero CPAN insiste en que ya tengo una versión más antigua instalada". Eso se soluciona agregando UNINST=1 a la lista de opciones de instalación (en el shell de cpan):

o conf make_install_arg UNINST=1

Hola, explorer y danimera, gracias,

Utilizo root para instalar módulos. He seguido tu reseña, http://manpages.sgvulcan.com/CPAN.3pm.php

Sintáxis: [ Descargar ] [ Ocultar ]

Sintáxis: [ Descargar ] [ Mostrar ]

Using text Syntax Highlighting

"The easiest way to prevent this behaviour is to add the argument UNINST=1 to the make install call, and that is why many people add this argument permanently by configuring
o conf make_install_arg UNINST=1"

Coloreado en 0.000 segundos, usando GeSHi 1.0.8.4

Entonces, ¿se procede simplemente añadiendo en el shell de cpan "UNINST=1" (luego enter) o "o conf make_install_arg UNINST=1" y después "INSTALL IMAGE::GRAB"?


Saludos

o conf ... es la orden para cpan para modificar la configuración del entorno.

A partir de ese momento, todas las instalaciones llevarán la orden de desinstalación previa, añadida.

Las páginas de manual las tienes en tu propio ordenador, o en cpan.org: CPAN.