Wie verwende ich ein Perl-Paket bekannt ist, nur in der runtime?

Habe ich ein Perl-Programm, dass nutzen muss, die Pakete (die ich auch Schreibe). Einige dieser Pakete sind nur gewählt, Laufzeit (basierend auf einige environment-Variablen). Ich will nicht in meinem code ein "verwenden" - Linie für alle diejenigen Pakete, natürlich, aber nur ein "verwenden" - Linie, basierend auf diesen Variablen, so etwas wie:

use $ENV{a};

Leider funktioniert das nicht, natürlich. Irgendwelche Ideen auf, wie dies zu tun?

Vielen Dank im Voraus,
Oren

InformationsquelleAutor Oren Sarid | 2009-01-14

9
```
eval "require $ENV{a}";
```
"use" funktioniert nicht gut, weil hier nur Einfuhren im Rahmen der eval.

Als @Manni sagte, eigentlich ist es besser, zu verwenden, erfordern. Zitat aus man perlfunc:
```
Wenn EXPR ist ein bareword, die erfordern, übernimmt ein ".pm" Erweiterung und 
ersetzt "::" mit "/" in Dateinamen für Sie, um es einfach zu 
laden standard-Module. Diese form der Beladung der Module nicht 
Risiko verändern Sie Ihre namespace. 

In anderen Worten, wenn Sie versuchen, diese: 

benötigen Foo::Bar; # eine herrliche bareword 

Die require Funktion tatsächlich Aussehen, für die "Foo/Bar.pm" - Datei 
in die angegebenen Verzeichnisse in @INC-array. 

Aber wenn Sie versuchen, diese: 

$Klasse = 'Foo::Bar'; 
require " $class; # $Klasse ist nicht ein bareword 
#oder 
require "Foo::Bar"; # nicht ein bareword wegen dem "" 

Die require-Funktion Aussehen wird, für die "Foo::Bar" - Datei in den @INC 
array und beschweren sich über nicht finden, "Foo::Bar" gibt. In diesem 
Fall Sie tun können: 

eval "require $class"; 
```
- Das ist ordentlich, ich Frage mich, warum es nicht in PCB? Gibt es einen Unterschied zwischen diesem und eval ' Ing ein verlangen? Haben Sie noch Symbole importieren, manuell?
- Ich sehe das Zitat, Nathan. Aber Woher kommt es, dass verlangen, ist besser in unserem Fall? Meinst du "besser" wie in "weniger esoterisch"/canonical?
- Ein problem bei diesem ist, dass, obwohl es sieht aus wie "benutze" es ist wirklich nur ein "verlangen" und kein importieren zu geschehen scheint.
- das ist es, was ich meine. Es ist mehr kanonisch.
- Es tut importieren, leider sind die Einfuhren in die eval-block.
- OK. Vielen Dank für die Klärung. Denke, wir alle haben etwas daraus gelernt. Zu mir, gpojd Antwort ist der klare Sieger.
InformationsquelleAutor Nathan Fellman
9

"use" - Statements ausgeführt werden zu Kompilierzeit, nicht zur Laufzeit. Müssen Sie benötigen, um Ihre Module statt:
```
my $module = "Foo::Bar";
eval "require $module";
```
InformationsquelleAutor innaM
6

Ich würde UNIVERSAL::require. Es hat sowohl erfordern und verwenden verwenden, um einem Paket. Die verwenden wird die Methode auch aufrufen import für das Paket.
```
use UNIVERSAL::require;
$ENV{a}->use or die 'Could not import package:  ' . $@;
```
InformationsquelleAutor gpojd
4

Die Sie wahrscheinlich verwenden wollen require statt use wenn Sie nicht möchten, dass es geschehen wird zur compile-Zeit, und dann manuell importieren Sie beliebige Symbole, die Sie benötigen. Sehen diesen link, um das Perl-Kochbuch (von Google Bücher) für eine gute Diskussion von Methoden, die Sie verwenden können, um zu erreichen, was Sie wollen.
- Sollten wir wirklich die Verknüpfung zu illegalen Kopien von Büchern?
- Geändert der link zu Google gehen Bücher, die ich vermute, ist befugt, die Informationen verteilen wie ein "Preview".
- Danke. Das fühlt sich viel besser.
InformationsquelleAutor Adam Bellaire
4

Ich denke, dass ein Modul geladen-runtime-werden kann ein Plugin. Ich habe diese Art von problem, dass bestimmte Module auf einige Fälle, die geladen werden im Lauf der Zeit als plugins mit Module::Pluggable.

Vielleicht brauchen Sie zum ändern der Logik der Module, aber es funktioniert und das sehr gut skalieren (meine app gestartet mit vier Modulen und haben jetzt zwanzig und er wächst).

InformationsquelleAutor Frederico
3

Wie wäre es mit dem core-Modul Module::Load

Dein Beispiel:
```
use Module::Load;
load $ENV{a};
```
"Module::Load - Laufzeit erfordern, die von beiden Modulen und Dateien"

"Last entfällt die Notwendigkeit, zu wissen, ob Sie versuchen, entweder eine Datei oder ein Modul."

Wenn es nicht gelingt, stirbt Sie, mit etwas, das wie "nicht finden Können xxx in @INC (@INC contains: ...".

InformationsquelleAutor DavidG
1

Viele Jahre später eval "use $mod_name"; scheint zu funktionieren (so zumindest 5.8.8).

Den Vorteil, über eval "require $mod_name"; ist, dass das geladene Modul die Standard-Exporte sind automatisch importiert; in anderen Worten:

eval "use $mod_name";

ist das kürzere äquivalent

eval "require $mod_name"; $mod_name->import();

Hier ist ein test-Befehl auf und übergibt den Namen des Moduls über env. variable mod_name lädt und importiert das Modul verwendet dann eine importierte Funktion (setzt eine POSIX-shell):
```
 $ mod_name='Data::Dumper' perl -e 'eval "use $ENV{mod_name}"; print Dumper("hi!")'
 $VAR1 = 'hi!';
```
^{ich kann die fehlenden Feinheiten; wenn dem so ist, lasst es mich bitte wissen.}

InformationsquelleAutor mklement0

Schreibe einen Kommentar

Du musst angemeldet sein, um einen Kommentar abzugeben.