请问：如何在脚本中获得该脚本所在的目录？

whizchen

有什么方法可以获得吗？

bdw

1. 
   
2. use Cwd 'abs_path';
   
3. 
   
4. print abs_path($0)."\n";
   

复制代码

man Cwd

1. 
   
2. NAME
   
3.        Cwd - get pathname of current working directory
   
4. 
   
5. SYNOPSIS
   
6.            use Cwd;
   
7.            my $dir = getcwd;
   
8. 
   
9.            use Cwd 'abs_path';
   
10.            my $abs_path = abs_path($file);
    

复制代码

whizchen

谢谢bdw ！

这个问题困扰了我很久了，我之前用过
use Cwd;
my $dir = getcwd;

但是发现getcwd其实获取的是你运行脚本时所在的路径，不是我想要的！

apile

再加上$0..就成了.....

1. 
   
2. #!/usr/bin/perl
   
3.            use Cwd;
   
4.            my $dir = getcwd;
   
5. 
   
6.            use Cwd 'abs_path';
   
7.            my $abs_path = abs_path($file);
   
8. print "$abs_path\n";
   
9. print "$0\n";
   

复制代码

只是.....可能需要一点修剪..

perl perl/tt4.pl
/home/aa/apile
perl/tt4.pl

组合起来就是
/home/aa/apile/perl/tt4.pl

如果再不同目录....
可能就要费一点功夫..从root开始找起..重新整理一下...

[ 本帖最后由 apile 于 2006-12-21 08:35 编辑 ]