perl - 使用 Perl 删除目录和子目录中具有给定扩展名的文件

Question

我是 Perl 新手。我正在尝试删除目录 (A) 及其所有子目录 (B,C) 中具有特定扩展名的所有文件。我已经学会了如何为给定的目录这样做，但不是递归的。那就是下面的工作在 A 目录中而不是在 B、C 子目录中。

use strict;    
use warnings;    
my $dir = "~/A/";    
unlink glob "$dir/*.log";

我试过

use strict;
use warnings;
use File::Find;
my $dir = "~/A";
find(\&wanted, $dir);
sub wanted { 
unlink glob "*.log";
}

但后来我收到一条消息: Can't stat ~/A: No such file or directory .虽然目录在那里。任何提示？
马里奥

Answer 1

试试 $ENV{"HOME"}而不是 ~这是特定于 shell 的，

use strict;    
use warnings;    
my $dir = "$ENV{HOME}/A";
unlink glob "$dir/*.log";