Perl: Wie finde ich einen übergeordneten Ordner eines bekannten Unterordners?

Question

Ich bin neu in Perl und habe Probleme, einen übergeordneten Ordner eines bekannten Unterordners zu bekommen. So habe ich eine Liste von Unterordnern, sagen wir A, B, C, D, etc. Ich weiß, dass sie alle in Ordnern verteilt sind (z. B.), 1, 2, 3, 4 usw.

So kann es so aussehen: 1/A 1/B 2/C 3/D 3/E usw.

ich möchte nur durch jeden Ordner iterieren und finden es ist direkt übergeordnete Verzeichnis . Irgendwelche Ideen?

EDIT: Changed PERL Perl: P

Answer 1

use File::Find::Rule qw(); 

my @matches = 
    File::Find::Rule 
     ->name(qw(A B C D)) 
     ->directory 
     ->in('.'); 

---

Es tief dir Griffe gut.

$ mkdir -p a/b/c/d/e/f/g/h/i/j/k/l 

$ touch a/b/c/d/e/f/g/h/i/j/k/l/file 

$ mkdir -p 0/1/2/3/4/5/6/7/8/9 

$ touch 0/1/2/3/4/5/6/7/8/9/file 

$ perl -MFile::Find::Rule -E'say for File::Find::Rule->in(".")' 
. 
a 
a/b 
a/b/c 
a/b/c/d 
a/b/c/d/e 
a/b/c/d/e/f 
a/b/c/d/e/f/g 
a/b/c/d/e/f/g/h 
a/b/c/d/e/f/g/h/i 
a/b/c/d/e/f/g/h/i/j 
a/b/c/d/e/f/g/h/i/j/k 
a/b/c/d/e/f/g/h/i/j/k/l 
a/b/c/d/e/f/g/h/i/j/k/l/file 
0 
0/1 
0/1/2 
0/1/2/3 
0/1/2/3/4 
0/1/2/3/4/5 
0/1/2/3/4/5/6 
0/1/2/3/4/5/6/7 
0/1/2/3/4/5/6/7/8 
0/1/2/3/4/5/6/7/8/9 
0/1/2/3/4/5/6/7/8/9/file