perl - perlでファイルとディレクトリの長いリスト/配列を効率的に削除する方法

Question

これは、現在、ファイルとディレクトリを再帰的に削除する方法です

foreach my $row(keys %$rows)
{
    my $md5 = $rows->{$row}->{'md5'};
    my $path = "/some/path/jpg/".substr( $md5, 0, 3 )."/$md5";

    `rm -rf $path`;
    print "removed - ".$path."\n";
}

削除する必要があるファイル/ディレクトリは何十万もあるので、各ファイル/ディレクトリに対して「rm -rf」を呼び出す以外のより良い解決策を見つけたいと思います。

ファイル/ディレクトリのリストを配列に結合して、この配列を単一の「rm -rf」呼び出しに渡すことはできますか?

Answer 1

File::Pathrmtreeから使用します。移植性に加えて、ディレクトリを削除する必要があるたびにシェル全体を起動する代わりに、Perl の組み込みunlinkを使用します。これは、現在行っていることです。