Variablen übergeben - #82269 (Allgemeines zu Perl)

ptk

2004-05-13 20:49

User since
2003-11-28
3645 Artikel
ModeratorIn
[default_avatar]

[quote=renee,13.May.2004, 18:41]wenn in der ersten Zeile des Bar.pm ein

Quote
package Modul::Bar;

steht, dann mach mal in Foo.pm ein

Code: (dl )

1
2
3

use FindBin ();
use lib $FindBin::Bin.'/../';
use Modul::Bar;

[/quote]
"use FindBin" bezieht sich immer auf das aufrufende Skript, nicht auf das derzeitige Modul. Wenn man relativ zu einem Modul ein Verzeichnis waehlen will, muss man folgendes machen:

Code: (dl )

use File::Basename;
BEGIN {
    my $mod =;
    $mod =~ s{::}{/}g;
    $mod .= ".pm";
    push @INC, dirname $INC{$mod}; # oder unshift, ggfs. mit Test, ob das Verzeichnis bereits in @INC existiert
}