ファイル削除のスクリプト

複数のファイルを消すのに手間取ってしまったため、メモしておく。

• カレントディレクトリのファイルを消す場合

my $fil = 'hoge.txt';
unlink($fil);

• カレントディレクトリ内のディレクトリにあるファイルを消す場合

$dir = 'dir_name';
$fil = 'hoge.txt';
my $name = $dir . '/' . $fil;
unlink($name);

これだけなら、opendir、readdirを行う必要はない。

• 複数のディレクトリから複数のファイルを選んで消去する場合

my $dirname = '.';
opendir(DRC, $dirname) or die "$dirname: $!";

while (my $dir = readdir(DRV)) {
  if ($dir =~ /^hoge/) {
    opendir(DIR, $dir) or "$dir: $!";

    while (my $fil = readdir(DIR)) {
      if ($fil =~ /^file_hoge/) {
        my $filename = $dir . '/' . $fil, "\n";
        unlink($filename);
      }
    }
  closedir(DIR);
  }
}
closedir(DRC);