Thread Wo bin ich?: Verzeichnis des Perl-Skriptes ermitteln (17 answers)
Opened by Herr_Cisie at 2006-06-02 15:23

sid burn
 2006-06-05 23:49
#66946 #66946
User since
2006-03-29
1520 Artikel
BenutzerIn

user image
[quote=Mathias,05.June.2006, 20:31]Ich hatte das mal so gelöst

Code: (dl )
1
2
3
4
5
6
use File::Basename;

my $k = basename $0;
$_ = "$0";
s/$k//g;
my $verz = "$_";


aber eure sachen sind da besser[/quote]
Deine Lösung ist aber nicht so Toll. Was ist wenn mein Skript "sid" heißt, und ich mich im Verzeichnis "/home/sidburn/" befinde. $0 würde dann "/home/sidburn/sid" enthalten. Und deine Substitution würde dann daraus "/home/burn/sid" machen. Das erste "sid" also weg schneiden. Der Dateiname steht dann aber immer noch im Pfad. Und den Pfad gibt es unter Umständen auch gar nicht.

Zum anderen enthält $0 nicht den absoluten Pfad, sondern den Pfad wie dein Skript aufgerufen wude. Wenn ich es mittels "./sid" aufgerufen hätte, dann würde man "./" nach deiner Substitution zurück bekommen. Damit kann man relativ wenig anfangen.\n\n

<!--EDIT|sid burn|1149537016-->
Nicht mehr aktiv. Bei Kontakt: ICQ: 404181669 E-Mail: perl@david-raab.de

View full thread Wo bin ich?: Verzeichnis des Perl-Skriptes ermitteln