ディレクトリのファイル数取得

あるディレクトリのファイル数の取得しその数を「ファイルは○個あります」と表示したいのですが。拡張子jpgのファイル数だけを取得したいです。

No.3 ベストアンサー 回答者： h_hikita 回答日時：2000/12/26 13:56

さっきの続きでいくなら、

## 以下一行追加　変数のを初期化。以下、jpgファイルを見つけるたびにカウントを増やすようにする。
$i = 0;
while ($current_file = readdir(DIR)) {
if (substr($current_file,-4,4) eq "\.jpg") {
## 以下一行追加　ここに来るということはファイルが有ったという事なので１つカンターを増やす。
$i++;
:
中略
:
} elsif ( $current_file !~ /[\.]+/ && stat($current_file) && -d _ ) { # ., .. は除く。 statして directoryかどうかチェックする
:
中略
:
}
}
closedir(DIR);

## 以下一行追加　書式は適宜必要に応じて記述変更するのが吉。
print "<TD ALIGN=RIGHT>ファイルは $i個あります\n";
print "</TABLE>\n";
exit:

この回答へのお礼

ひとつひとつの命令の意味がわかっていない部分があるので単に追加するのもむずかしかったですが、やっとこさできました。ありがとうございました。(^_^)

お礼日時：2000/12/27 08:38

No.4 回答者： slackware 回答日時：2000/12/26 14:14

こんな感じでしょうか.

==
#!/usr/bin/perl
# ↑ perl のパスは適宜、変更

# .jpg のリストを取得
@files = glob("*.jpg");

# 個数
$count = 0;

foreach $file (@files)
{
　# 通常のファイル
　if ( -f $file)
　{
　　$count += 1;
　}
}

print "ファイルは " . $count . "個あります\n";

==

No.2 回答者： tukitosan 回答日時：2000/12/26 13:37

Windows での説明を書いていきます。

「検索」を呼び出します。
そこで、検索の「参照」で、jpg の拡張子の数を知りたいディレクトリーを指定して下さい。

あとは、検索の「名前」に「.jpg」と入力し、検索をかければ、この「.jpg」の数を示してくれることになります。

Macについては、分かりません。すみませんが‥‥。

参考助言にでもなれば、幸いです。
tukitosan でした。

No.1 回答者： take 回答日時：2000/12/26 13:34

FinFirstFile, FindNextFile で数えてください。

ハンドルを FileClose で閉じるのを忘れずに。