¿Cómo puedo usar una variable como nombre de módulo en Perl?

Question

Sé que es posible usar una variable como nombre de variable para variables de paquete en Perl. Me gustaría usar los contenidos de una variable como un nombre de módulo. Por ejemplo:

package Foo; 
our @names =("blah1", "blah2"); 
1; 

Y en otro archivo que desea ser capaz de ser capaz de establecer el contenido de un escalar a "foo" y luego acceder a la matriz a través nombres en Foo que escalar.

my $packageName = "Foo"; 

Básicamente quiero hacer algo en la línea de:

@{$packageName}::names; #This obviously doesn't work. 

Sé que puedo usar

my $names = eval '$'. $packageName . "::names" 

Pero sólo si Foo::names es un escalar. ¿Hay otra forma de hacerlo sin la declaración eval?

Answer 1

para llegar a variables de paquete en paquete $package, puede utilizar simbólica referencias:

no strict 'refs'; 
my $package = 'Foo'; 

# grab @Foo::names 
my @names = @{ $package . '::names' } 

una mejor manera, lo que evita referencias simbólicas, es exponer un método dentro Foo que devolverá la matriz. Esto funciona porque el operador de invocación de método (->) puede tomar una cadena como invocant.

package Foo; 

our @names = (...); 
sub get_names { 
    return @names; 
} 

package main; 
use strict; 

my $package = 'Foo'; 
my @names = $package->get_names; 

Answer 2

Strict checking le impide el uso de una variable (o cadena literal) como parte de un nombre, pero esto se puede desactivar de forma local:

my @values; 
{ 
    no strict 'refs'; 
    @values = @{"Mypackage"}::var; 
}