XAMPP, Perl und @INC

[Alexander (HH)]

Moin Moin!

Ergänze mal probehalber:

  

> BEGIN{  

$0 =~ m#^(.*?)/[a-z]+\.pl$# or die "Ooops! $0 does not match";  

>    $0 =~ m#^(.*?)/[a-z]+\.pl$# and push @INC, $1;  
> }  

Ich würde FindBin und lib benutzen. Folgender Code-Schnipsel funktioniert auch im Taint-Mode, dabei liegt das Script in $PREFIX/bin, die Module in $PREFIX/lib.

  
use FindBin;  
use lib do { $FindBin::Bin=~m|^(/.+)/[^/]+$|; "$1/lib" };  

Alexander