[quote=Mathias,05.June.2006, 20:31]Ich hatte das mal so gelöst
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