Perl：既知のサブフォルダの親フォルダを見つける方法を教えてください。

Question

私はPerlを使い慣れていません。私は既知のサブフォルダの親フォルダを取得するのにいくつか問題があります。 A、B、C、Dなどのサブフォルダのリストがあります。 これらはすべて、（1,2,3,4などの）ラベルが付いたフォルダに散在していることがわかります

だから、このようなことができます：私はちょうど各フォルダを反復処理し、それが直接の親ディレクトリです検索したい 1/ 1/B 2/C 3/D 3/E など

。何か案は？

EDIT：PerlのにPERLを変更：P

Answer 1

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

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

---

それだけで罰金深いディレクトリを処理します。

$ 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