Question

如何用perl获取某一文件所在路径

Answer 1

用perl获取某一文件所在路径，参考代码如下：

use Cwd 'abs_path';
print abs_path($0)."\n";
man Cwd
NAME
Cwd - get pathname of current working directory
SYNOPSIS
use Cwd;
my $dir = getcwd;
use Cwd 'abs_path';
my $abs_path = abs_path($file);

Answer 2

这里给你 某一文件或某一文件夹的绝对路径:(use Cwd 'abs_path';然后用abs_path函数)
use Cwd 'abs_path';
use warnings;
$myfile= "1.txt";
$mydir="../time_change";
print(abs_path($myfile)."\n");
print(abs_path($0)."\n");
print(abs_path($mydir)."\n");

追问

不行呀，报错： No such file or directory
还是只能获得运行路径下的文件的绝对路径呀

追答

No such file or directory是说你写的文件名电脑找不到，跟我的程序没关系吧。。。print(abs_path($0)."\n");就这一行总可以成功吧；你所在的工作文件夹是这个perl程序所在文件夹，比如我的"1.txt"是我自己建立的一个例子，在同个文件夹内。你如果不写例子的话，电脑当然找不到。
我只是跟你举了3个例子，所在文件夹文件，perl文件自身，和别处的某个文件夹。我都已经测试过才发给你的，100%没问题。

追问

我知道，就是第三个别处文件夹（我的是在别的磁盘分区的）的报错，麻烦您再给指点指点，谢谢啦！

追答

你没问我问题，我怎么指导啊，你用的linux还是windows呢，或者别的系统？无论怎么样，我所给出的这个module应该在各个系统都可以给出你所给的文件名或文件夹名的绝对路径。看来你对perl了解还不深吧，可以去看看网上的一个“神奇的perl”读物，简单易懂，还有个24小时的perl学习资料可以下载，我记得；如果你已经超越这一等级，我想对于普通的问题基本就没什么难度了。当然要深入学习的话，还有很多书要看，还有很多module要去学习就是的，根据自己用perl的领域。

追问

是属于入门阶段，刚看了一些基础知识，模块才刚接触，所以各种不知道，汗呀。。。