[Perl] sobre móulos

[Gunnar Wolf]

Gustavo Chain dijo [Fri, Jan 27, 2006 at 11:14:55AM +0000]:
> Hola Lista, q tal todo.
> 
> Quería saber si era posible usar un modulo sin tener q instalarlo en el 
> sistema, osea, llamarlo desde el mismo programa hacia una ruta 
> especñifica, y así poder ejecutar el script en cualquier lado sin tener 
> q instalar el módulo en cada máquina
> 
> Si es así, como ?

Primero que nada, recuerda que como parte del path de inclusión por
default está . (el directorio actual), por lo que:

gwolf en mosca:/tmp$ cat  > Cosa.pm
package Cosa;
sub funcion {
    print "Sirvo!\n";
}
1;
gwolf en mosca:/tmp$ cat > prueba.pl
#!/usr/bin/perl
use Cosa;
Cosa::funcion;
gwolf en mosca:/tmp$ chmod 755 prueba.pl 
gwolf en mosca:/tmp$ ./prueba.pl 
Sirvo!
gwolf en mosca:/tmp$ 

Ahora, si quieres instalar tus módulos en algún lugar específico no
contemplado en el path, usa "use lib":

gwolf en mosca:/tmp$ cd       
gwolf en mosca:~$ cat > prueba2.pl
#!/usr/bin/perl
use lib qw(/tmp);
use Cosa;
Cosa::funcion;
gwolf en mosca:~$ chmod 755 prueba2.pl 
gwolf en mosca:~$ ./prueba2.pl 
Sirvo!
gwolf en mosca:~$ 

Saludos,

-- 
Gunnar Wolf - gwolf en gwolf.org - (+52-55)5623-0154 / 1451-2244
PGP key 1024D/8BB527AF 2001-10-23
Fingerprint: 0C79 D2D1 2C4E 9CE4 5973  F800 D80E F35A 8BB5 27AF