perl - 特定のディレクトリ内のサブディレクトリとファイルを削除する

Question

ディレクトリからすべてのサブディレクトリとファイルを削除したいのですが、ディレクトリ自体は削除したくありません。たとえば、変数に「Sample」ディレクトリを渡し、「Sample」ディレクトリに 3 つのサブディレクトリと 3 つのファイルが含まれている場合、その 3 つのディレクトリと 3 つのファイルをすべて削除したいとします。実際には、"Sample" ディレクトリには多くのサブディレクトリとファイルを含めることができます。

Answer 1

ETA:これは実際には perlfaq5 にあります:ディレクトリ ツリーを削除するにはどうすればよいですか?

File::Path、コア モジュールを使用します。

perl -MFile::Path=remove_tree -we 
    'remove_tree("Sample",{keep_root=>1}) or die $!'

このkeep_rootオプションにより、remove_tree は最上位ディレクトリを保持します。

keep_root => $bool

true 値に設定すると、最初に指定されたディレクトリを除いて、すべてのファイルとサブディレクトリが削除されます。これは、アプリケーションのスクラッチ ディレクトリを消去するときに役立ちます。