> Perlの達人いる？
> hogeというﾃﾞｨﾚｸﾄﾘ内のﾀｲﾑｽﾀﾝﾌﾟが一週間前のﾌｧｲﾙすべてを削除するｽｸﾘﾌﾟﾄをちょっと書いてみてくれ

opendir(HDIR, $hoge);
@dir = readdir(HDIR);
closedir(HDIR);

foreach $filename (@dir) {
  @fstat = stat($filename);
  next if -d _;
  if ($fstat[9] < (time() - 60 * 60 * 24 * 7)) {
    unlink($filename);
  }
}

こんな感じか？(;´Д`)修正＆最適化頼む

参考：2005/10/29(土)16時15分20秒