指定されたフォルダ以下のゴミ削除

指定したフォルダ以下にある、ファイル名が"~"で終わるファイルを削除するプログラムを作ってください。 指定したフォルダの中にあるフォルダのさらに中にあるファイルも削除の対象です。

→問題

---

perlで書いてみた。

#!/usr/bin/perl
use strict;
use warnings;
use utf8;
use File::Find;
sub e{encode("utf8", shift)};
sub d{decode("utf8", shift)};

die  e("使用方法: $0 directory string") if(@ARGV != 2);

my $directory = $ARGV[0];
find(\&del, $directory);
exit;

sub del{
  my $pattern = $ARGV[1];
  unlink $_ if(-f $_ && /$pattern$/);
}

javascriptでは・・・基本的に無理ですね。
WSH使えばできないこともないですが．．．