Perl：递归列出文件和目录，但排除一些通过的目录和文件

Question

请给出任何建议或代码片段或任何可能的工作。

我已经试过想要的功能，但如何在递归时排除某个目录？

Answer 1

在Linux中，您可以使用Linux“find”和“grep”命令并使用qx在Perl中运行这些Linux命令，以将Linux命令结果存储在Perl中。

例如

$cmd = "find . | grep -v 'dir1\|dir2\|...\|dirn'"; 
$result=qx($cmd); 

上面的命令组合做到以下几点：

1. find命令将列出所有的目录和文件 递归。
2. 管道“|”将通过查找结果grep命令
3. grep的-v命令将在屏幕上打印仅在“DIR1”，“DIR2” ......“DIRN”被忽略
4. 最后不存在 字符串， qx命令将执行find和grep命令并将输出存储到$ result变量。

你可以在Windows中做类似的事情。唯一的区别是使用Windows命令行。

例如

$result=qx('dir /b/s | find /v "workspace" | find /v "TVM"') 

上面的命令将列出递归除了目录具有名称“工作区”或“TVM”的所有目录。