37 lines
739 B
Perl
37 lines
739 B
Perl
#!/usr/bin/perl -w
|
|
use warnings;
|
|
use File::Slurp qw(:std);
|
|
use File::stat;
|
|
use File::Path;
|
|
use Data::Printer;
|
|
|
|
my $folder = 'D:\\Test\\code insider\\';
|
|
my @folders;
|
|
push @folders, $folder;
|
|
|
|
for my $fold ( @folders ) {
|
|
opendir my $dh, "$fold";
|
|
my @fol = readdir $dh;
|
|
|
|
for my $d ( @fol ) {
|
|
if ( $d =~ /^\.|^\.\./ ) {
|
|
next;
|
|
}
|
|
|
|
if ( -d "$fold$d" ) {
|
|
if ( $d ne 'data' ) {
|
|
# remove_tree("$fold$d");
|
|
} else {
|
|
rmtree( "$fold$d\\user-data\\Cache", {keep_root => 1} );
|
|
rmtree( "$fold$d\\user-data\\GPUCache", {keep_root => 1} );
|
|
rmtree( "$fold$d\\user-data\\CachedData", {keep_root => 1} );
|
|
rmtree( "$fold$d\\user-data\\CachedData-x64", {keep_root => 1} );
|
|
}
|
|
} else{
|
|
# unlink("$fold$d");
|
|
}
|
|
}
|
|
}
|
|
|
|
1;
|