kolla varifrån skriptet körs?

Hur gör man i Perl för att se varifrån skriptet körs (t ex d:\program\tools\)

$ENV{'SCRIPT_FILENAME'}

Ett tips för att kolla alla ENV värden är ju att köra detta script

#!/usr/bin/perl

print "Content-type: text/html\n\n";
foreach $key (sort(keys %ENV)) {
  print $key, '=', $ENV{$key}, "<br>\n";
}

Eller så använder du findbin. Fungerar även om du kör scriptet löst och inte i CGI-miljö.

Det gör ENV också

/r i linux iaf

Har du kört scriptet i shell då? Perl för Win32 sätter inte upp några extra enviroment variabler.

Jag kom på det efteråt att det troligen inte funkar i win32, men då brukar ju folk köra asp.

Eller är det bara en fördom?

Det är nog ingen fördom, för det brukar "dom" :). Men nu har jag testat på en debian linux dist, och där fanns det inte heller. Där har du istället variabeln PWD. Tror fortfarande att du testat i en CGI-miljö...

Glöm det hela jag tänkte fel..

Tack Jojoxx, nu funkar det som det ska!

Scriptet är för övrigt inte cgi utan körs från kommandoraden. Tycker att det känns rätt smidigt att kunna använda samma språk för cgi som för cmd, är väl därför jag håller mig till Perl :)

Ja, Perl är guld! :)