id:fbisさんにアドバイスもらったので調べてみる。File::Find::Ruleっていうのは標準モジュールじゃないらしく手元のクイックリファレンスに載っていない。とりあえず後回しにしてFile::Findを試してみる。ActivePerlのリファレンスを読んでもよくわからん。クイックリファレンスでもわからないから英語だからって話じゃない。Findっていうくらいなので条件にあうファイルを集めてくるような動作をイメージしていた。んでグーグル先生の御神託でひねり出したのがこんなコード。 # sample of File::Find use strict; use File::Find; our @wantedFiles; find(\&wanted, $ARGV[0]); for (@wantedFiles) { print "Delete $_\n" if /~$/; } sub wan