opendirで複数のディレクトリ呼び出しの簡素化

質問

下記のように複数のディレクトリから.datファイルのみの
数を集計して書き出したいのですが簡素化する記述方法を教えてください。
他のプログラムをコピーしたので集計に関係ない記述が
あるかもしれません。よろしくお願いします。

my $kazu1 = 0;
my (@temp1,@temp2,%z1,$a1,$a2);
opendir(DIR,'./a/kazu/');
while ($a1 = readdir(DIR)){
if ($a1 =~ /(.*)\.dat/i){
$a1=$1;
$kazu1++;
if (($searchkey eq "0") || ($searchkey eq "1")){push(@temp1,$a1);}
elsif (($searchkey eq "2") && ($a1 =~ /^[0-9]/)){push(@temp1,$a1);}
elsif ($a1 =~ /^$searchkey/i){push(@temp1,$a1);}
}
}
closedir(DIR);

my $kazu2 = 0;
my (@temp1,@temp2,%z1,$a1,$a2);
opendir(DIR,'./b/kazu/');
while ($a1 = readdir(DIR)){
if ($a1 =~ /(.*)\.dat/i){
$a1=$1;
$kazu2++;
if (($searchkey eq "0") || ($searchkey eq "1")){push(@temp1,$a1);}
elsif (($searchkey eq "2") && ($a1 =~ /^[0-9]/)){push(@temp1,$a1);}
elsif ($a1 =~ /^$searchkey/i){push(@temp1,$a1);}
}
}
closedir(DIR);

my $kazu3 = 0;
my (@temp1,@temp2,%z1,$a1,$a2);
opendir(DIR,'./c/kazu/');
while ($a1 = readdir(DIR)){
if ($a1 =~ /(.*)\.dat/i){
$a1=$1;
$kazu3++;
if (($searchkey eq "0") || ($searchkey eq "1")){push(@temp1,$a1);}
elsif (($searchkey eq "2") && ($a1 =~ /^[0-9]/)){push(@temp1,$a1);}
elsif ($a1 =~ /^$searchkey/i){push(@temp1,$a1);}
}
}
closedir(DIR);

$kazu= ($kazu1+$kazu2+$kazu3);
print($kazu);

回答No.1

BLUEPIXY · ベストアンサー

大文字小文字を無視するようにはなってないですが、無視する必要がありますか？

@list=glob "./a/kazu/*.dat";
$kazu1=@list;
@list=glob "./b/kazu/*.dat";
$kazu2=@list;
@list=glob "./c/kazu/*.dat";
$kazu3=@list;
$kazu= ($kazu1+$kazu2+$kazu3);
print($kazu);

お礼

ファイル数を取得するぐらいであればglobでいいんですね
ありがとうございました
.datファイルの中には、大文字小文字のファイルが存在しています
今、教えていただいたのは大文字の.datファイルは数えない仕様になっているのでしょうか？

回答No.2

BLUEPIXY

>今、教えていただいたのは大文字の.datファイルは数えない仕様になっているのでしょうか？
試してはいないのですが、
windowsでは、ファイル名として扱う文字列は大文字小文字を区別しないので、関係ないですが、
多くのUNIX系のシステムでは、大文字と小文字を区別しますので、結果が違ってくる場合があると思います。
つまり
filename.DATのようなファイルは数えられないと思います。
この場合問題になるのはdatの部分だけですので、
*.dat
の部分を
*.[Dd][Aa][Tt]
とすれば
dat,DAT,Datどれでもマッチするようになると思います

お礼

なるほど、大変勉強になりました♪
実際、集計(数の表示)はうまく出来ています
ありがとうございましたm(_ _)m