如何查找Windows路徑下的所有lib目錄？

Question

我得到當我運行該腳本的結果「找不到文件」：

use File::Basename; 

my @dirs = grep { fileparse($_) =~ /^[L|l]ib/ } 

split /\n/, dir e:\\/ad/b/s; 

print @dirs; 

這是我的實際代碼。我正在嘗試grep在整個驅動器中的名稱爲lib或Lib的目錄和子目錄。

Answer 1

任何數量的東西。

• 我希望您使用的是在您的文章迷路反引號：
• 但你並不需要split，如果你使用反引號，因爲它會回來的名單。
• 我不認爲[L|l]意味着你認爲它的意思。如果您的意思是大寫「L」或小寫「l」，則不需要交替符號。正確的表達是[Ll]（或(?i:l)ib這意味着我們本地化的I位爲組。）

所以，如果它看起來像這樣：

use File::Basename; 

my @dirs = grep { fileparse($_) =~ /^[Ll]ib/ } qx{dir /AD /B /S e:\\}; 

這應該工作，如果有任何與之相匹配的東西。只要確保您使用qx運算符或反引號。

Answer 2

如果您正在使用從my answer to your previous question的代碼，我能想到的唯一的事情是，有可能是你的路徑上一些外部dir.exe不理解內置dircmd.exe的命令行選項。例如，Cygwin的在我的路徑中的目錄，我得到

 
dir: cannot access /ad/b/s: No such file or directory 

您也應該得到展示的習慣確切輸出，如果你希望人們能夠你得到幫助你更有效。

要確保不發生，用途：

use strict; use warnings; 

use File::Basename; 

my @dirs = grep { fileparse($_) =~ /^[Ll]ib/ } 
      split /\n/, `cmd.exe /c dir e:\\ /ad/b/s`; 

print "$_\n" for @dirs; 

注意反引號```。還要注意對您正在使用的模式的修正。