我是一个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";
}
解决方法
试试$ENV {“HOME”}而不是〜具体是shell,
use strict;
use warnings;
my $dir = "$ENV{HOME}/A";
unlink glob "$dir/*.log";