Perl을 사용하여 파일의 조부모 디렉토리 얻기

Question

Perl을 사용하여 파일의 조부모 디렉토리를 가져 오는 것에 대한 생각. realpath는 현재 작업 디렉토리를 반환으로 현재, 나는 당신이 실제로 상위 디렉토리, 그리고 조부모를 원하는처럼

#!/usr/bin/perl 
use Cwd; 

my ($parentDir, $grandParent); 

$parentDir = Cwd::realpath(); 

Answer 1

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" 

Answer 2

것 같습니다 현재 다음과 같은 방법으로 실행되는 파일의 상위 디렉토리를 얻을 수 있어요 .

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";