Opened by darmon at 2003-09-04 12:38
User since
2003-08-11
265 Artikel
BenutzerIn
![[Homepage]](/battie/theme/default/homepage.gif)
![[default_avatar]](/battie/theme/default/default_avatar.gif)
2003-08-11
265 Artikel
BenutzerIn
[quote=havi,04.09.2003, 11:43]... außerdem sollte man @INC ja nicht manipulieren :-)[/quote]
Kann man auch nur wärend des kompilierens von Perl.
Ich habe es allerdings anders 'manipuliert'.
Da ich meine Module nicht direkt in @INC speichern möchte, aber auch zu faul bin immer use lib zu schreiben, habe ich in einen der @INC Pfade einen symbolischen Link (ln -s) gesetzt, der auf mein tatsächliches dir für eigene Module zeigt.
So habe ich in @INC den symbolischen Link SNADRA, der auf /home/snadra/perl_modules zeigt.
Ein Modul kann ich dann einfach so aufrufen:
use SNADRA::ModuleName
Da der sym. Link auch nicht direkt auf den @INC Pfad gelegt ist, sondern noch SNADRA 'dazwischen steht' bekomme ich auch keine NameSpace Probleme mit Standard oder CPAN Modulen.
... Nur mal so am Rande ... Keine Empfehlung für die Problemlösung dieses Threads...
Kann man auch nur wärend des kompilierens von Perl.
Ich habe es allerdings anders 'manipuliert'.
Da ich meine Module nicht direkt in @INC speichern möchte, aber auch zu faul bin immer use lib zu schreiben, habe ich in einen der @INC Pfade einen symbolischen Link (ln -s) gesetzt, der auf mein tatsächliches dir für eigene Module zeigt.
So habe ich in @INC den symbolischen Link SNADRA, der auf /home/snadra/perl_modules zeigt.
Ein Modul kann ich dann einfach so aufrufen:
use SNADRA::ModuleName
Da der sym. Link auch nicht direkt auf den @INC Pfad gelegt ist, sondern noch SNADRA 'dazwischen steht' bekomme ich auch keine NameSpace Probleme mit Standard oder CPAN Modulen.
... Nur mal so am Rande ... Keine Empfehlung für die Problemlösung dieses Threads...
http://hamburg.pm.org
jeden 2. mittwoch im monat
--
#!/usr/bin/perl -w
$l=join('',map chr,(116,110,105,114,112))if$^T;
!!$$?@_=qw(Jhfg Aabgure Prey Hnpxre):$l=1;
for(@_){eval reverse($l)."'"._(_(_($_))).' \''}
sub _{$_=~y+a-z+n-za-m+and pop}
jeden 2. mittwoch im monat
--
#!/usr/bin/perl -w
$l=join('',map chr,(116,110,105,114,112))if$^T;
!!$$?@_=qw(Jhfg Aabgure Prey Hnpxre):$l=1;
for(@_){eval reverse($l)."'"._(_(_($_))).' \''}
sub _{$_=~y+a-z+n-za-m+and pop}