Pfad zu meinem Perl-Script

[Christian Kruse]

你好 hotti,

G:\home\ich\html\cgi-bin>perl grep.pl
grep.pl

G:\home\ich\html\cgi-bin>cd ..

G:\home\ich\html>perl cgi-bin/grep.pl
cgi-bin/grep.pl

(grep.pl: print "$0\n";)

Bekannt, aber nicht wirklich ein Problem. Nachweis:

#!/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:

ckruse@Titania ~ $ perl test.pl  
$0: test.pl  
dir: /Users/ckruse  
ckruse@Titania ~ $ cd ..  
ckruse@Titania /Users $ perl ckruse/test.pl  
$0: ckruse/test.pl  
dir: /Users/ckruse  
ckruse@Titania /Users $

再见,
 克里斯蒂安