在Perl中获取相对于主目录的路径

Question

对于这个问题，我找到了一个解决方案，但是我正在寻找替代解决方案。 假设我在目录中

/home/user/testA/testB

我的主目录是/home/user ，如何获取当前目录相对于我的主目录的路径？ 即： testA/testB 。

我尝试了以下方法：

use Cwd qw(getcwd);
use Env qw(HOME);

my $cdir=getcwd;
my $p=$cdir=~s{^\Q$HOME\E/}{}r;

而且似乎可行。 我的问题是是否有用于执行此操作的CPAN模块？ 我最接近的是File::Spec::Functions qw(abs2rel)但这只是给我../.. ..也许我错过了什么？

Answer 1

这似乎对我使用File::Spec很好

#!usr/bin/perl

use File::Spec;

$base = '/home/user';
$path = '/home/user/testA/testB';

my $rel_path = File::Spec->abs2rel( $path, $base );
print($rel_path);

输出：

testA/testB

Answer 2

使用Path :: Tiny ：

#!/usr/bin/perl
use warnings;
use strict;

use Path::Tiny;

my $base = '/home/user';
my $path = '/home/user/testA/testB';

my $relative = path($path)->relative($base);
print "$relative\n";