Bir değişkeni Perl'de modül adı olarak nasıl kullanabilirim?

Question

Perl'de paket değişkenleri için değişken olarak değişken adı kullanmak mümkün olduğunu biliyorum. Bir değişkenin içeriğini modül adı olarak kullanmak isterim. Mesela: Ben mümkün istiyorum

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

Ve başka dosyada bir sayısal alan için "foo" içeriğini ayarlamak ve sonra bu sayısal alan ile Foo isimleri dizi erişmek mümkün. Ben

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

Ama yalnızca Foo::names

bir skaler olduğunu kullanabilirsiniz biliyoruz

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

:

my $packageName = "Foo"; 

Esasen ben çizgisinde bir şey yapmak istiyorum. eval bildirimi olmadan bunu yapmanın başka bir yolu var mı? , Sen sembolik kullanabilirsiniz

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

Answer 1

pakette $package paket değişkenleri almak için:

Answer 2

Strict checking bir adının bir parçası olarak bir değişken (veya edebi dize) kullanarak engelliyor, ancak bu yerel olarak devre dışı bırakılabilir referanslar: sembolik referanslar önler

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

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

daha iyi bir yol, bir dizi döndürür Foo içinde bir usul ortaya koymaktır. Bu, yöntem çağırma işleci (->), invocant olarak bir dize alabileceği için çalışır.

package Foo; 

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

package main; 
use strict; 

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