perl - フォルダ内のすべての*.jpgを削除します

Question

拡張子が.jpgのみの一時フォルダ内のファイルを削除するにはどうすればよいですか。

これが私が試したことです。

unlink("../httpdocs/Temp/*.jpg);

Answer 1

たとえば、glob関数をパターンに適用する必要があります。

unlink glob "../httpdocs/Temp/*.jpg";

これについては、リンク解除とグロブのドキュメントで説明されています。リンク解除自体は、処理するファイルのリストを想定しています。glob関数は、ドキュメントを引用します。

リストコンテキストでは、標準のUnixシェル/ bin / cshが行うような、EXPRの値に対するファイル名展開の（おそらく空の）リストを返します。

Answer 2

マーティン・クレイトンは良い答えを出しました。失敗したファイルの削除に対して適切な警告を出すことは良い考えかもしれませんが、その場合、ループは次のリスト形式を使用するよりも優れていますunlink。

unlink or warn "$_: $!" for glob "../httpdocs/Temp/*.jpg"

Answer 3

あなたはこれを試すことができます..あなたはglobファイルを削除するために使用する必要があります..

chdir "../httpdocs/Temp"
unlink glob "*.jpg"

Answer 4

リストコンテキストでglobを使用すると、デンタリーの数によってはメモリ消費量が増える可能性があるため、whileループ（スカラーコンテキスト）で操作することをお勧めします。

while( my $dentry = <../httpdocs/Temp/*.jpg> ) {
    unlink $dentry or die( "Couldn't delete the $dentry file: $!" );
}