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」的所有目錄。