perl 如何得到文件的绝对路径？

milk_

perl 里如何得到一个文件的绝对路径?

有没有现成的函数？

请指教

Chennysky

???
$path = "D:/aa/bb/cc.txt";

milk_

我的意思是比如/home/demo 目录下有个文件叫test.pl
我想得到test.pl的绝对路径,也就是只知道文件名，但要知道全部的路径，怎么处理阿？

POLOGG

原帖由 milk_ 于 2006-3-10 17:05 发表
perl 里如何得到一个文件的绝对路径?

有没有现成的函数？

请指教

写的不好，凑合着用吧！

Linux下：

1. #!/usr/bin/perl
   
2. 
   
3. $pwd = `pwd`;
   
4. chomp( $pwd );
   
5. print $pwd.'/'.`basename $0`;

复制代码

windows下：

1. print $0;

复制代码

ulmer

原帖由 milk_ 于 2006-3-10 17:05 发表
perl 里如何得到一个文件的绝对路径?

有没有现成的函数？

请指教

If you want your code more portable (in defferent OSs), there is module from CPAN:
File::Spec;
File::Spec::Functions qw/rel2abs/;    # relative path to absolute path

Try this:
perl -le 'use File::Spec::Functions qw(rel2abs); print rel2abs(".")'

If your code is just running under Linux/unix, this module in fact uses the command
"pwd" directly. Just like POLOGG's answers.

See more details:
    perldoc File::Spec;
    perldoc File::Spec::Functions

Best. ulmer