Pfad zu meinem Perl-Script

[hotti]

hi,

#!/usr/bin/perl -w

use strict;
use File::Basename;
use Cwd qw/abs_path/;

my $dir = dirname(abs_path($0));

print "$0: $0\ndir: $dir\n";

>   
> Testcase:  
>   
> [code]  
  
Cannot chdir to G:\home\ich\html\cgi-bin\grep.pl:No such file or directory at G:\home\ich\html\cgi-bin\grep.pl line 7  
  
kommt da bei mir.  
Hotto

-- 
Wenn der Kommentar nicht zum Code passt, kann auch der Code falsch sein.