如何在Perl中打印相对路径的文件夹？

Question

我有一个脚本，需要一个文件夹的相对路径。有没有办法获得指向的文件夹/目录的名称？如果需要，它可能是绝对路径，我将使用正则表达式来剥离它。

说我执行：

/example/a/b/c/d/perl.pl 

例如1

如果他们输入：

../../ 

我希望它能够返回“B”（或绝对路径直到b，我可以写一个脚本来剥离的话）。

e.g.2

如果他们输入：

./ 

我希望它能够返回 'd'（或再次，绝对路径最多d）。

有没有一种简单的方法来做到这一点，因为我能想到的唯一方法是计算../的数量，并使用它在文件的绝对路径上执行正则表达式，这需要大量的处理。

感谢

Answer 1

这很简单 - 只需使用Cwd模块：

use Cwd 'abs_path'; 
my $abs_path = abs_path($file); 

Answer 2

相对于脚本执行（按照您的要求）：

use Cwd   qw(realpath); 
use File::Basename qw(dirname); 

my $script_dir = dirname(realpath($0)); 
my $abs_path = real_path("$script_dir/$rel_path"); 

相对于当前的工作目录：

use Cwd qw(realpath); 

my $abs_path = realpath($rel_path); 

在这两种情况下，都会解析符号链接。如果你喜欢，File :: Spec提供了不能解析符号链接的函数。