请问如何获得脚本所在路径？

soichiro

$ENV{PWD}是运行脚本的当前路径，而我需要的是脚本所在的路径，我看了%ENV里都没有，请问如果获取？谢谢。

lonelyair

原帖由 soichiro 于 2007-1-24 18:21 发表
$ENV{PWD}是运行脚本的当前路径，而我需要的是脚本所在的路径，我看了%ENV里都没有，请问如果获取？谢谢。

perldoc perlvar
$$

soichiro

原帖由 lonelyair 于 2007-1-24 19:32 发表


perldoc perlvar
$$

$$是PID。
$0在Activestate Perl for Windows中是返回脚本的绝对路径，而Linux下的Perl返回的只是脚本的文件名，还是无法取得脚本所在目录。

路小佳

getcwd

soichiro

原帖由 路小佳 于 2007-1-24 20:27 发表
getcwd

getcwd返回的还是当前目录，并不是脚本所在的目录。

soichiro

搞定了:

use FindBin qw($Bin);
print $Bin;

谢谢各位。

兰花仙子

原帖由 soichiro 于 2007-1-24 20:39 发表
搞定了:

use FindBin qw($Bin);
print $Bin;

谢谢各位。

sorry,刚才回复错了。

rongy

用dirname $0是不是更简单些？