ディレクトリ閲覧スクリプト

＠検索で使ってる汎用ルーチンをちょっと公開します。

http://strangedb.ath.cx/www-db/dir_filelist.pl.txt

指定したディレクトリのファイルリストを取得するスクリプトです。
File::Findは最下層まで掘り下げてしまうし、readdirは掘り下げができないので、階層数を指定したディレクトリ堀り下げもできるようにしつつ、柔軟なファイルマッチング指定ができるようなものを作りました。
似たようなものはどこかにあるかもしれませんが、とりあえず。
使用はパブリックドメインです。