使用Perl获取文件的祖父目录

Question

有关使用Perl获取文件的祖父目录的任何想法。目前，我能够以下列方式获取当前正在执行的文件的父目录

#!/usr/bin/perl
use Cwd;

my ($parentDir, $grandParent);

$parentDir = Cwd::realpath();

Answer 1

看起来你真的想要父目录，而不是祖父母，因为realpath会返回当前的工作目录。

use Cwd;
use File::Spec;

print "Parent Dir: ", abs_path(File::Spec->updir()), "\n";

但是，要获得祖父母，以下方法可行：

print "Gramps: ", abs_path(File::Spec->catdir((File::Spec->updir) x 2)), "\n";

Answer 2

use Cwd;
use  File::Spec;

my ($parentDir, $grandParent);

$parentDir = Cwd::realpath();
print $parentDir,"\n";
my @dirs = File::Spec->splitdir($parentDir);
pop @dirs;
my $grandParent = File::Spec->catdir( @dirs );
print $grandParent,"\n"