複数のフォルダを開いてPerlでファイルを比較するには？

Question

私はparent_folder_1とその中に多くのサブフォルダを持っています。私もparent_folder_2とその中の多くのサブフォルダを持っています。

サブフォルダには.dファイルが含まれています。

私が比較したいと思っているparent_foldersの番号を取得する必要があります。例えば

：

は、 "あなたは比較することがどのように多くのparent_foldersしたいですか？"

ユーザが4を入力した場合、スクリプトは4つのすべてのパスを要求する必要があります。parent_folders。

そして、1つの親フォルダ内には、1つのサブフォルダ内に、d folderという名前の.dファイルを含む別のフォルダがあります。

すべての4つの親フォルダ内の各.dファイルを比較し、その結果をExcelスプレッドシートに入れて、どの.dファイルがどの親フォルダに存在するかを確認する必要があります。

parent folder1とparent folder3でxxx.d SFが存在する場合、出力は次のようになります。

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

Answer 1

これはアイデアです：

• 使用File::Find、ディレクトリ、サブディレクトリとファイルを横断します。 wanted()で

• 、をチェック：

  -f $ファイル:: ::名& & $ファイルを検索::検索::名前=〜/^.+\.d$/

• 上記の条件がfalseと評価された場合は、return;それ以外の場合は、ファイルを比較してスプレッドシートを作成します。

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. 

を使用して試すことができます