ワイルドカードを使ったファイルの削除

　File::Removeモジュールを使うと * や ? を使ってファイルを削除することができます。

use File::Remove qw(remove);

remove "*.c", "*.pl";

　第1引数に\1(真になるスカラーへのリファレンス)を設定すると、ディレクトリも削除します。削除は再帰的に行われるので、中にファイルがあっても削除されます。

remove \1, "/home/user1/tmp", "/home/user1/work";