Foro - Perl en Español

Tengo una variable con el nombre del módulo que quiero usar, debería de ser algo así...

use $modulo;
$modulo->cargar()

Todos los módulos que puede tener $modulo tienen la función cargar...

Lo pruebo y no funca y la verdad no tengo idea de para donde salir corriendo...

Saludos

Código: Seleccionar todo

my $module = 'Data::Dumper';
eval "use $module";
print "Couldn't load module $module: $@" and return if $@;
print Dumper( [ 1, 2, 3 ] );


Si quisieras hacer cosas como esas en tiempo de compilación necesitarías el uso de un bloque BEGIN.

Saludos,

mil gracias chaval, como siempre de 10 !!!

Otra forma.

Supongamos que tenemos 3 ficheros así:
modulo1.pm:

Código: Seleccionar todo

package modulo1;
sub cargar {
        print "Cargando en " . __PACKAGE__ . "\n";
}

modulo2.pm:

Código: Seleccionar todo

package modulo2;
sub cargar {
        print "Cargando en " . __PACKAGE__ . "\n";
}

modulo3.pm:

Código: Seleccionar todo

package modulo3;
sub cargar {
        print "Cargando en " . __PACKAGE__ . "\n";
}

Podemos entonces hacer esto:

Código: Seleccionar todo

#!/usr/bin/perl
for $i ( 1..3 ) {
    $modulo = "modulo$i";
    do "$modulo.pm";
    &{ $modulo ."::cargar" } ();   # 1
    &{ "${modulo}::cargar" } ();   # 1a
    modulo1::cargar();             # 2
    $x = "modulo${i}::cargar";
    &$x();                         # 3
}

Gracias explorer, es bueno saber que hay otras formas de hacerlo...Igual con la de Marco (perl user) ya me funcionó...

Igual todavía estoy probando distintas variantes

Saludos