複数のディレクトリを読み込み、Perlのサブディレクトリの内容を読むにはどうすればよいですか？

Question

私にはフォルダがあり、その中には多くのサブフォルダがあります。これらのサブフォルダには、多数の.htmlファイルが読み込まれています。私はそれを行うために次のコードを書いています。親フォルダと最初のサブフォルダが開き、1つの.htmlファイルしか印刷されません。それはエラーを示します：

NO SUCH FILE OR DIRECTORY 

私はコード全体を変更したくありません。既存のコードの変更は私には良いことです。

use FileHandle; 
opendir PAR_DIR,"D:\\PERL\\perl_programes\\parent_directory"; 
while (our $sub_folders = readdir(PAR_DIR)) 
{ 
     next if(-d $sub_folders); 

     opendir SUB_DIR,"D:\\PERL\\perl_programes\\parent_directory\\$sub_folders"; 
     while(our $file = readdir(SUB_DIR)) 
     { 

     next if($file !~ m/\.html/i); 
      print_file_names($file);  
     } 
     close(FUNC_MODEL1);  
} 
close(FUNC_MODEL); 

    sub print_file_names() 
    { 
    my $fh1 = FileHandle->new("D:\\PERL\\perl_programes\\parent_directory\\$file") 
       or die "ERROR: $!"; #ERROR HERE 
    print("$file\n"); 
    } 

Answer 1

あなたはprint_file_names()機能で提供され$fileパラメータを抽出していません。

それは次のようになります。

sub print_file_names() 
{ 
    my $file = shift; 
    ... 
} 

外側のループであなたの-dテストはところで、あまりにも間違って見えます。あなたはnext if -d ...と言っています。これは、ディレクトリの内部ループをスキップすることを意味します。これは、必要とするものと完全に反対のようです。あなたがすべてのパス名ではなくパスに関連するファイル名だけである$fileをテストしているからです。また

注：

1. PerlのWindows上では
2. パス区切りとして/で細かい対処 を一度自分の親ディレクトリを設定し、その
から他のパスを導き出す
3. 代わりopendir(DIR, $path)
の使用 opendir($scalar, $path)

nb：未テストコードは次のとおりです。

Answer 2

210は、あなたが入れて起動してください

File::Find

Answer 3

を使用して検討している：

use strict; 
use warnings; 

すべてのスクリプトの先頭に、それはあなたがこのような問題を回避し、多くのあなたのコードを行いますより読みやすい。

あなたはここでそれについての詳細を読むことができます：Perlmonks

Answer 4

あなたの投稿コードが邪魔overcomplicated見えます。 File::Find::Ruleをチェックしてください。ほとんどのコードを少しずつ書き上げることができます。

use File::Find::Rule; 

my $finder = File::Find::Rule->new()->name(qr/\.html?$/i)->start("D:/PERL/perl_programes/parent_directory"); 

while(my $file = $finder->match() ){ 
    print "$file\n"; 
} 

つまり、はセクシーではありませんか？

ユーザーは、Depth = 2のエントリのみを使用したいと考えているとコメントしました。

use File::Find::Rule; 

my $finder = File::Find::Rule->new()->name(qr/\.html?$/i)->mindepth(2)->maxdepth(2)->start("D:/PERL/perl_programes/parent_directory"); 

while(my $file = $finder->match() ){ 
    print "$file\n"; 
} 

この制限が適用されます。

Answer 5

あなたはそれを強固にするために全体のコードを変更する必要があるとしている。

#!/usr/bin/perl 

use strict; 
use warnings; 

use File::Find; 

my $top = $ENV{TEMP}; 

find({ wanted => \&wanted, no_chdir=> 1 }, $top); 

sub wanted { 
    return unless -f and /\.html$/i; 
    print $_, "\n"; 
} 

__END__ 

Answer 6

ここでファイルを使用することを必要としないものの方法::検索です：

まず、ルートディレクトリを開き、 readdirを使用してすべてのサブフォルダの名前を配列に格納します。

次に、foreachループを使用します。各サブフォルダに対して、ルートディレクトリとフォルダの名前をリンクして新しいディレクトリを開きます。 readdirを使用してファイル名を配列に格納します。

最後の手順は、このforeachループの内部でファイルを処理するためのコードを記述することです。

私にこのアイデアを与えてくれた先生に感謝します:)本当にうまくいきました！