Jak dynamicznie zmieniać ścieżkę modułu Perla?

Question

Mam dwie różne wersje modułu Perla. Obecnie kluczowy skrypt wykorzystuje wersję modułu określoną przez zmienną środowiskową, a system opiera się na różnych zadaniach wykonywanych przez różnych użytkowników. Środowisko użytkownika określa, która wersja modułu Perla była używana.

Teraz chciałbym zmienić to na wersję, która jest określona w skrypcie Perla, tj. W zależności od przekazanych opcji. Niestety, kod taki jak ten:

if ($new){ use lib "newdir"; } 
else{ use lib "olddir"; } 
use module; 

nie działa. Perl dodaje po prostu newdir, a następnie olddir do @INC, a następnie uruchamia skrypt.

Jak określić dynamicznie, który moduł ma być używany?

Answer 1

Musisz użyć BEGIN{} blok więc if - kod else zostanie uruchomiony w czasie kompilacji:

BEGIN { 
    if ($new) { unshift @INC, "newdir"; } 
    else {  unshift @INC, "olddir"; } 
} 
use module; 

---

Można również ustawić zmienną środowiskową PERL5LIB więc nie musiałby zrób taką konfigurację w skrypcie.

Answer 2

Na CPAN istnieje pragma only, która ułatwia instalację i używanie wielu wersji tego samego modułu.

Answer 3

Jeśli wolisz logikę w czasie wykonywania (na przykład, jeśli zmienna $ new jest produkowana w bardziej skomplikowany sposób, niż nie chcesz uruchamiać w bloku BEGIN), możesz użyć funkcji require() moduł w czasie wykonywania.

Ważną rzeczą do zapamiętania jest to, że

use Module; 
use ModuleWithExports qw(export1 export2); 

jest taka sama jak

BEGIN { require Module; Module->import() } 
BEGIN { 
    require ModuleWithExports; 
    ModuleWithExports->import('export1', 'export2'); 
} 

Oznacza to, że aby mieć swój bieg kodu w czasie wykonywania można po prostu mieć:

if ($new) { 
    unshift @INC, "newdir"; 
} 
else { 
    unshift @INC, "olddir"; 
} 
require module; 
module->import(); # if necessary 

Alternatywą do używania funkcji require() jest użycie modułu CPAN z modułu Module::Load.