[perl] Verzeichnis des Scripts rausfinden

[Boron]

Servus zusammen,

wie komme ich denn mit perleigenen Mitteln an das Verzeichnis in dem ein Perlscript liegt?

Mit system( "pwd") komme ich ja an das Verzeichnis, aus dem ich das Script aufrufe. Aber dieses Verzeichnis will ich nicht.
Wenn also das Script unter /home/ich/scripts/script.pl liegt, wie bekomme ich dann im Script /home/ich/scripts raus (ich rufe das Script z.B. von /home/ich auf).

Und nehemn wir mal noch an, dass Perl auch unter Win32 läuft :D, funtioniert das dann anders?

[mork]

das aktuelle Verzeichnis bekommst du mit:

use Cwd;

my $verzeichnis=cwd;

print "Du bist im Verz. ".$cdw;

...

grüsse,
mork

ps:... und wenn du mir ActivPerl unter Win arbeitest, sollte das auch so funktionieren.

[spike]

wenn ich Dich richtig verstanden haben müsste das so aussehen (unter Unix)

#!/usr/bin/perl -w

# MODULES

# Getting something like the Unix basename,dirname cmd
use File::Basename;


# MAIN

print "Changing to script dir\n";
chdir(dirname($0)) or die "Can not change dir to dirname($0): $! \n";

Unter Win müsste das wohl auch gehen, ist aber von mir nicht getestet ...

$0 ==> Steht immer der Pfad zum Skript bzw. Aufruf drin