指定ディレクトリ内に入ってるmp3の曲数えるー。

perl -e "$mst_dir = 'C:/Users/Owner/Music/Album'; $count = 0; opendir $DIR, $mst_dir;while($dirname=readdir($DIR)){ opendir $DIR2, $mst_dir.'/'.$dirname; while($filename = readdir($DIR2)){ $count++ if($filename =~ /.mp3/); } closedir($DIR2); }closedir($DIR); print $count;"

ちょっとムリがあるけど、わんらいなー。
本当はもっと柔軟に作るべきなんだろうけど、こんなんでとりあえず十分だった。
albumの中にガンダムディレクトリ作って、その中にガンダムの曲突っ込んでる場合とかに。
Cでも書いたけど、Perlのがやっぱこういうのはラクですね。

ディレクトリから曲を読み込むのは、再帰的にやるといいんだな。
Cで書きながら再学習。