Dotaz: Perl a nacitani mod

[MadMike]

Ahoj, pisu program a potreboval bych mensi radu. V programu pouzivam svoje vlastni moduly, ktere mam ve stejnem adresari jako program. Ve skriptu vzdy pridavam jeho cestu do INC pomoci use lib "$ENV{PWD}/modules";.

Tahle varianta ale nefunguje pokud volam dany program z jineho adresare, nez je program samotny a ja nechci pridavat moduly do INC. Mohl by mi nekdo poradit?
Predem diky

Odpovědi

[Ľubomír Host]

Poradi? Samozrejme.

use FindBin;
use lib "$FindBin::Bin/modules";
use lib "$FindBin::Bin/../modules";

[MadMike]

Ano! Dekuji, to je presne to, co jsem potreboval.