Perl 再帰処理でファイル検索をするとカレントフォルダしか検索してくれない。

Question

WindowsでStrawberry_Perl5.24を使用しています。

再帰処理のことを勉強しています。"Higher-Order Perl"という書籍を参考にしてファイル検索スクリプトを書いたのですが、特定の条件分岐で下層のディレクトリを探してくれなくなってしまいました。

もちろん本の通りにコピペすれば問題なく動作するのですが、少しの書き方の違いでなぜここまで動作が異なるのか、理由がわかりません。

テスト用のフォルダやファイルを作ったりしてデバッカで動きを追ったりしたのですが、いまひとつ理解できませんでした。

ファイルテスト演算子"-d"を使った条件分岐 と単純なファイル名とディレクトリ記号との文字列比較による条件分岐は意味が異なるのでしょうか？

うまく動作しない理由が知りたいです。よろしくお願い致します。

###発生している問題・エラーメッセージ

0 	:	 . 
0 	:	 ./R1 
0 	:	 ./R2 
718 	:	 ./recursive4.pl 

###該当のソースコード

use strict;
use warnings;

use Data::Dumper;
use utf8;
use Encode;




sub recursive {
    my ( $base_dir,  $func ) = @_;
    my $DIR;
    
    
    
    $func->($base_dir);
    
    
    if (-d $base_dir){
    my $f; 
    if (!opendir $DIR, $base_dir) { warn "can't open directry"; return;}
 
    while ($f = readdir $DIR){ 
    		next if $f eq '.' || $f eq '..'; #正しく動作する条件分岐
    		next if ( -d $f ) ;        #うまく動作してくれない条件分岐
    		    		  		 
    		   recursive( "$base_dir/$f", $func); 
             
     
     }
    }
}



my $code_ref = sub {
    				 printf "%d \t:\t %s \n", -s $_[0], $_[0]; 
    				 
				   };

recursive(".", $code_ref);

###補足情報(言語/FW/ツール等のバージョンなど)
本来のフォルダ構成は下記のようになっています。

0 	:	 . 
0 	:	 ./AAA 
0 	:	 ./AAA/a1 
0 	:	 ./AAA/a2 
0 	:	 ./AAA/a3 
0 	:	 ./AAA/a4 
0 	:	 ./BBB 
0 	:	 ./BBB/b1 
0 	:	 ./BBB/b2 
0 	:	 ./BBB/b3 
0 	:	 ./R1 
0 	:	 ./R2 
718 	:	 ./recursive4.pl 

これは本に書いてあったサンプルです。

sub print_dir {
    printf "%6d  %s\n",-s $_[0], $_[0] ;
}




sub dir_walk { 


my ($top, $code) = @_;
my $DIR;

$code->($top);

if (-d $top) {
    my $file;
    unless (opendir $DIR, $top) {
            warn "Couldn't open directory $top: $!; skipping.\n";
            return;
            }
    while ($file = readdir $DIR) {
            next if $file eq '.' || $file eq '..';
            dir_walk("$top/$file", $code);
        }
    }
}

Answer 1

   while ($f = readdir $DIR){ # $DIR で表されるディレクトリ配下のディレクトリを列挙
            next if $f eq '.' || $f eq '..'; # カレントディレクトリと親ディレクトリはスキップ
            next if ( -d $f ) ;        # その他のディレクトリもまとめてスキップ

結果何もしません。

Comments

[siusus]

お世話になっております。
回答ありがとうございます。ものすごく根本的なことを聞いてしまったようで、なんだかすみません。

ファイルテスト演算子-dはカレントディレクトリ(.)と上位ディレクトリ(..)だけをチェックすると勝手に思い込んでいました。そうですよね。フォルダもディレクトリですよね･･･。
自分で「下層のディレクトリ」という単語を使っているのに、このことにまったく気付きませんでした。
本当に下手したら一生気付けなかったかもしれません･･･。本当に助かりました。ありがとうございます。