如何打開多個文件夾並比較Perl中的文件？

Question

我有一個parent_folder_1和許多子文件夾裏面。我也有parent_folder_2和其中的許多子文件夾。

子文件夾包含.d文件。

我必須得到用戶想要比較的parent_folders的數量。

例如： 「有多少parent_folders你要比較」

如果用戶輸入4，那麼腳本應該要求所有四個路徑的parent_folders。

而且，在一個父文件夾中，在一個子文件夾內，還有另一個名爲d folder的文件夾，其中包含.d文件。

我必須比較所有四個父文件夾中的每個.d文件，並且必須將結果放入Excel電子表格中，以便哪些.d文件存在於哪個父文件夾中。

如果xxx.d SF存在於parent folder1和parent folder3，那麼輸出應該是：

xxx.d parent folder1 #this space is for parent folder2 if present# parentfolder3 

Answer 1

這是想法：

• 使用File::Find遍歷目錄，子目錄和文件。

• 在wanted()，檢查：

  -f $文件::查找::名& & $文件::查找::名稱=〜/^.+\.d$/

• 如果上述條件評估爲錯誤，則返回;否則，比較這些文件並填充電子表格。

Answer 2

U可以嘗試使用

#opening the directory 
opendir (DIR, $directory) or die $!; 
#reading the directory 
while (my $file = readdir(DIR)) { 
print $file;} 
#thus the giving the accessing the file in the way u would like to.