perlでﾃﾞｨﾚｸﾄﾘ内のﾌｧｲﾙをすべて消したい｡ﾃﾞｨﾚｸﾄﾘの中に入っているﾌｧｲﾙをすべて消したいです｡ｸﾞｸﾞって2通り試してみたのですがうまくいきませんでし…

人力検索はてな

ﾓﾊﾞｲﾙ版を表示しています｡PC版はこちら

perlでﾃﾞｨﾚｸﾄﾘ内のﾌｧｲﾙをすべて消したい｡

ﾃﾞｨﾚｸﾄﾘの中に入っているﾌｧｲﾙをすべて消したいです｡
ｸﾞｸﾞって2通り試してみたのですがうまくいきませんでした｡
(どちらもｴﾗｰは出ずただ消えないだけ…)

?
$Deleir = './img';
opendir(DIR, $Deleir);
unlink map { $Deleir.'/'.$_ } grep { -f $Deleir.'/'.$_ } readdir DIR;
closedir(DIR);

?
$Deleir = './img';
unlink(glob("$Deleir/*.*"));

どのようにしたらよいでしょうか?

●質問者: 匿名質問者
●ｶﾃｺﾞﾘ:ｳｪﾌﾞ制作
○ 状態 :終了
└ 回答数 : 3/3件

▽最新の回答へ

▽1 ● 匿名回答1号

たとえば

$|=1;
my $Deleir = './dum';
for my $file(glob("$Deleir/*.*")) {
print "$file ... ";
unlink $file or die "$!";
print "done\n";
}

のようにすれば削除できない理由が分かるかも

▽2 ● 匿名回答3号

use File::Path 'rmtree';

$target = './img'; # 削除対象のﾃﾞｨﾚｸﾄﾘ

rmtree($target);

▽3 ● 匿名回答4号

File::Path ﾓｼﾞｭｰﾙの rmtree を使ってはいかがですか?
http://d.hatena.ne.jp/perlcodesample/20100409/1270894115
･ﾃﾞｨﾚｸﾄﾘ毎消える
･ｻﾌﾞﾃﾞｨﾚｸﾄﾘも消える
という違いがあるので､意図されるものとは異なるかもしれませんが｡