Perl：如何找到已知子文件夹的父文件夹？

概述我是Perl的新手,我在获取已知子文件夹的父文件夹时遇到了一些麻烦. 所以我有一个子文件夹列表,比方说A,B,C,D等. 我知道它们都散布在标有(例如),1,2,3,4等的文件夹中. 所以它可以是这样的： 1 / A 1 / B 2 / C 3 / d 3 / E 等等 我只是想遍历每个文件夹并找到它的直接父目录.有任何想法吗？ 编辑：将PERL更改为Perl：P use File::Find:: 我是Perl的新手,我在获取已知子文件夹的父文件夹时遇到了一些麻烦.
所以我有一个子文件夹列表,比方说A,B,C,D等.
我知道它们都散布在标有(例如),1,2,3,4等的文件夹中. @H_404_9@

@H_404_9@所以它可以是这样的：
1 / A
1 / B
2 / C
3 / d
3 / E
等等

@H_404_9@我只是想遍历每个文件夹并找到它的直接父目录.有任何想法吗？

@H_404_9@编辑：将PERL更改为Perl：P

解决方法

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

@H_404_9@它处理深度目录就好了.

@H_404_9@

$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(".")'.aa/ba/b/ca/b/c/da/b/c/d/ea/b/c/d/e/fa/b/c/d/e/f/ga/b/c/d/e/f/g/ha/b/c/d/e/f/g/h/ia/b/c/d/e/f/g/h/i/ja/b/c/d/e/f/g/h/i/j/ka/b/c/d/e/f/g/h/i/j/k/la/b/c/d/e/f/g/h/i/j/k/l/file00/10/1/20/1/2/30/1/2/3/40/1/2/3/4/50/1/2/3/4/5/60/1/2/3/4/5/6/70/1/2/3/4/5/6/7/80/1/2/3/4/5/6/7/8/90/1/2/3/4/5/6/7/8/9/file

@H_404_37@ 总结

以上是内存溢出为你收集整理的Perl：如何找到已知子文件夹的父文件夹？全部内容，希望文章能够帮你解决Perl：如何找到已知子文件夹的父文件夹？所遇到的程序开发问题。

如果觉得内存溢出网站内容还不错，欢迎将内存溢出网站推荐给程序员好友。