[Perl]Hoe krijg ik de "path" uit een filename? => zoals $0?

[VisionMaster]

Hoe krijg ik de "path" uit een filename? => zoals $0?

Voor de info ... ik zit op een Linux 7.3 machine, maar dat zou niet zoveel uit moeten maken ... ?
Iemand een idee?

Kheb het nodig in een scriptje om even naar de betreffende directory te verhuizen waar een ander scriptje staat om uit te voeren. Ik kan ook kiezen om dat andere scriptje te voorzien van een mooiere path naar die file, das ook een optie. Maar hoe pak ik dat dan aan?
Ik moet er ook een beetje aan denken dat die files in een ander dir. komen als dan het standaard wordt geinstalleerd (dus kan het er niet echt rap ervoor gooien )

kzit een beetje vast dus.

[oVRoM]

Met het 'basename' commando kan het. Geef je

code:

basename /usr/local/bin/perl

Krijg je

code:

perl

terug. Das wel een system commando. Je kunt het natuurlijk ook met een regexp doen, das wel zo Perl

[VisionMaster]

oVRoM schreef op 12 maart 2004 @ 11:36:
Met het 'basename' commando kan het. Geef je

code:

basename /usr/local/bin/perl

Krijg je

code:

perl

terug. Das wel een system commando. Je kunt het natuurlijk ook met een regexp doen, das wel zo Perl

Funky
Maar ik wou het juist andersom ... dus ... dat ik het path krijg en niet de basename

[riddles]

Met Google:

code:

use File::Basename;
my ($file, $path) = fileparse("/path/to/my/directory/file.log");

[VisionMaster]

riddles schreef op 12 maart 2004 @ 12:03:
Met Google:

code:

use File::Basename;
my ($file, $path) = fileparse("/path/to/my/directory/file.log");

Woo thanks ... zoiets moest in Perl wel er simpel uit zien ... dit is perfect.

offtopic:
Ik heb niet echt de juiste keywords gebruikt dan ...

[ Voor 14% gewijzigd door VisionMaster op 12-03-2004 12:11 ]

[oVRoM]

VisionMaster schreef op 12 maart 2004 @ 11:59:
[...]

Funky
Maar ik wou het juist andersom ... dus ... dat ik het path krijg en niet de basename

Weet dat de oplossing al is gepost, maar voor de volledigheid, daarvoor heb je 'dirname'

code:

dirname /usr/local/bin/perl

geeft

code:

/usr/local/bin

terug