@INC Module im Unterverzeichnis von ./ (Seite 2) (Allgemeines zu Perl)

[thread]6193[/thread]

@INC Module im Unterverzeichnis von ./ (Seite 2)

Leser: 1

Gast Gast

2004-04-17 19:12

Oder so:

Code: (dl )

BEGIN {
    $0 =~ m~(.*)/[^/]+~ || $0 =~ m~(.*)\\[^\\]+~;    
    unshift @INC, $1;
}

damit bist Du 'immer' (auch unter win) im Arbeitsverzeichnis des Hauptprogramms und kannst dann auf die Module mit

Code: (dl )

use Unterverzeichnis::MeinModul;

aufrufen.

Crian

2004-04-19 12:56

User since
2003-08-04
5873 Artikel
ModeratorIn

[quote=Knuddlbaer,14.04.2004, 14:06]Kann ich das Ziel dennoch erreichen ohne Global @INC zu ändern ?[/quote]
Eigentlich lautet die korrekte Antwort nein. Denn auch "use lib", das ich hier ganz klar über alle anderen genannten Lösungen favorisiere, ändert intern @INC.

Aber wenn Dir "ohne @INC selbst zu ändern" reicht, nimm use lib.

s--Pevna-;s.([a-z]).chr((ord($1)-84)%26+97).gee; s^([A-Z])^chr((ord($1)-52)%26+65)^gee;print;

use strict; use warnings; Link zu meiner Perlseite

ptk

2004-04-19 14:11

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

[quote=Troll,17.April.2004, 17:12]Oder so:

Code: (dl )

BEGIN {
    $0 =~ m~(.*)/[^/]+~ || $0 =~ m~(.*)\\[^\\]+~;    
    unshift @INC, $1;
}

damit bist Du 'immer' (auch unter win) im Arbeitsverzeichnis des Hauptprogramms[/quote]
Immer? Auch unter VMS oder MacOS?\n\n

Gast Gast

2004-04-19 14:28

Neeee (schäm)
nur unter Linux und win

ptk

2004-04-19 14:37

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

[quote=Crian,19.April.2004, 10:56][quote=Knuddlbaer,14.04.2004, 14:06]Kann ich das Ziel dennoch erreichen ohne Global @INC zu ändern ?[/quote]
Eigentlich lautet die korrekte Antwort nein. Denn auch "use lib", das ich hier ganz klar über alle anderen genannten Lösungen favorisiere, ändert intern @INC.

Aber wenn Dir "ohne @INC selbst zu ändern" reicht, nimm use lib.[/quote]
Man koennte die Aenderung von @INC in einem eigenen Block mit "local @INC = ..." durchfuehren. Eine andere Moeglichkeit waere, einen absoluten Pfad und require zu verwenden, also etwa so:

Code: (dl )

BEGIN {
    use FindBin;
    require "$FindBin::Bin/My/Config/Module.pm";
    My::Config::Module->import; # nur notwendig, wenn etwas importiert werden soll
}

View all threads created 2004-04-14 16:06.