Thorsten Höser: Perl unter NT

Beitrag lesen

Hallo Matthias,

Du mußt in der Tat den ganzen Pfad eingeben. Perl speichert den lokalen Pfad des ausführende Skriptes übrigens in der Variable $0 ab.

Hier ein kleines Skript, welches über den Browser aufgerufen den lokalen Pfad (ohne den Skriptnamen) zurückgibt:

#!/usr/bin/perl -w

use CGI qw(:standard);

windows/dos?

if      ($0=~m#^(.*)\#) { $localpath = $1; }

unix?

elsif  ($0=~m#^(.*)/# ) { $localpath = $1; }
else                  { pwd =~ /(.*)/; $localpath = $1; }

print header;
print start_html;
print "Das lokale Verzeichnis ist: $localpath\n\n";
print end_html;