파일 경로가 주어지면 기존 조상 디렉토리를 어떻게 얻습니까?

Question

Perl에서 파일 경로가 주어지면 첫 번째 기존 조상을 어떻게 찾습니까? 예를 들어

: 경로 /opt/var/DOES/NOT/EXIST/wtv/blarg.txt 주어진 /opt/var/DOES/ 디렉토리가 존재하지 않지만 디렉토리 /opt/var/이면

• 결과는 /opt/var/이어야한다.
• 경로가 /home/leguri/images/nsfw/lena-full.jpg이고 디렉토리가 /home/leguri/images/nsfw/ 인 경우 디렉토리가 존재하지 않지만 디렉토리가 /home/leguri/images/ 인 경우 결과는 /home/leguri/images/이어야합니다.

이 작업을 수행하는 모듈 또는 기능이 있습니까? 아니면 /에 경로를 분할하고 존재 여부를 테스트해야합니까?

Answer 1

내가 아는 가장 가까운 경로는 Path::Class입니다.이 경로는 원하는 경로로는 수행하지 않지만 경로를 분할하는 데는 몇 가지 단계가 필요합니다.

use Path::Class 'dir'; 

sub get_existing_dir { 
    my ($path) = @_; 

    my $dir = dir($path); 
    while (!-d $dir) { 
     $dir = $dir->parent; 
    } 
    return $dir->stringify; 
} 

my $file = '/opt/var/DOES/NOT/EXIST/wtv/blarg.txt'; 
my $dir = get_existing_dir($file); 
print $dir; 

Answer 2

원숭이가 패치 그것을

#!/usr/bin/perl -- 
use strict; 
use warnings; 
use Path::Class ; 

my @paths = map dir($_) , 
    map join('/', $_, 1..6), 
    grep defined, 
    @ENV{qw/ WINDIR PROGRAMFILES TEMP HOME /}, 
    'Q:/bogus/drive/and/path', 
    'QQ:/bogus/drive/bogusly/treated/as/file', 
    ; 
push @paths, dir('bogus/relative/path/becomes/dot'); 
push @paths, dir('bogus/relative/path/becomes/relative/to/cwd')->absolute; 

for my $path (@paths) { 
    print $path, "\n\t=> ", $path->real_parent, "\n\n"; 
} 

sub Path::Class::Entity::real_parent { 
    package Path::Class::Entity; 
    my($dir) = @_; 
    while(!-d $dir){ 
     my $parent = $dir->parent; 
     last if $parent eq $dir ; # no infinite loop on bogus drive 
     $dir = $parent; 
    } 
    return $dir if -d $dir; 
    return; 
} 
__END__ 
C:\WINDOWS\1\2\3\4\5\6 
    => C:\WINDOWS 

C:\PROGRA~1\1\2\3\4\5\6 
    => C:\PROGRA~1 

C:\DOCUME~1\bogey\LOCALS~1\Temp\1\2\3\4\5\6 
    => C:\DOCUME~1\bogey\LOCALS~1\Temp 

C:\DOCUME~1\bogey\1\2\3\4\5\6 
    => C:\DOCUME~1\bogey 

Q:\bogus\drive\and\path\1\2\3\4\5\6 
    => 

QQ:\bogus\drive\bogusly\treated\as\file\1\2\3\4\5\6 
    => . 

bogus\relative\path\becomes\dot 
    => . 

C:\temp\bogus\relative\path\becomes\relative\to\cwd 
    => C:\temp