カレントディレクトリに対してファイル名にある文字列を含まないファイルを削除

Perlうめえ。<*>は、カレントディレクトリからファイルとディレクトリを全て抽出してくれる。
ワンライナーに便利です。

strを含まないファイル名をunlinkする。
for(<*>){unlink if !/str/}
正規表現だと柔軟でいい。逆にstrを含むなら "!" をはずす。

正規表現を使わないで済ませるなら、抽出の条件を指定できる。
unlink for <*str*>