Какая лучшая стратегия для удаления очень огромной папки с помощью Perl?

perlfaq указывает, что File::Find выполняет тяжелую работу по обходу каталога, но эта работа не Это сложно (при условии, что в вашем дереве каталогов нет именованных каналов, блочных устройств и т. д.):

sub traverse_directory {
    my $dir = shift;
    opendir my $dh, $dir;
    while (my $file = readdir($dh)) {
        next if $file eq "." || $file eq "..";
        if (-d "$dir/$file") {
            &traverse_directory("$dir/$file");
        } elsif (-f "$dir/$file") {
            # $dir/$file is a regular file
            # Do something with it, for example:
            print "Removing $dir/$file\n";
            unlink "$dir/$file" or warn "unlink $dir/$file failed: $!\n";
        } else {
            warn "$dir/$file is not a directory or regular file. Ignoring ...\n";
        }
    }
    closedir $dh;
    # $dir might be empty at this point. If you want to delete it:
    if (rmdir $dir) {
        print "Removed $dir/\n";
    } else {
        warn "rmdir $dir failed: $!\n";
    }
}

Замените свой собственный код для выполнения каких-либо действий с файлом или (возможно) пустым каталогом и вызовите эту функцию один раз в корне дерева, которое вы хотите обработать. Найдите значения opendir/closedir, readdir, -d и -f, если вы не встречались с ними раньше.

Функция remove_tree из File::Path может переносимо и подробно удалить иерархию каталогов, сохранив верхний каталог, если это необходимо.

use strict;
use warnings;
use File::Path qw(remove_tree);

my $dir = '/tmp/dir';
remove_tree($dir, {verbose => 1, keep_root => 1});

До версии 5.10 используйте функцию rmtree из File::Path. Если вам по-прежнему нужен верхний каталог, вы можете просто снова mkdir.

use File::Path;

my $dir = '/tmp/dir';
rmtree($dir, 1);  # 1 means verbose
mkdir $dir;

Что случилось с:

`rm -rf $folder`; // ??

Вы можете использовать File::Find для систематического обхода каталога и удаления файлов и каталогов в нем.

Хорошо, я сдался и использовал встроенные функции Perl, но вы должны использовать File::Path::rmtree, о котором я совершенно забыл:

#!/usr/bin/perl

use strict; use warnings;
use Cwd;
use File::Find;

my ($clean) = @ARGV;
die "specify directory to clean\n" unless defined $clean;

my $current_dir = getcwd;
chdir $clean
    or die "Cannot chdir to '$clean': $!\n";

finddepth(\&wanted => '.');

chdir $current_dir
    or die "Cannot chdir back to '$current_dir':$!\n";

sub wanted {
    return if /^[.][.]?\z/;
    warn "$File::Find::name\n";
    if ( -f ) {
        unlink or die "Cannot delete '$File::Find::name': $!\n";
    }
    elsif ( -d _ ) {
        rmdir or die "Cannot remove directory '$File::Find::name': $!\n";
    }
    return;
}

Загрузите инструменты Unix для Windows, а затем вы можете делать rm -rv или что-то еще.

Perl — отличный инструмент для многих целей, но с этим, кажется, лучше справиться специализированный инструмент.

Вот дешевый "кросс-платформенный" метод:

use Carp    qw<carp croak>;
use English qw<$OS_NAME>;
use File::Spec;  

my %deltree_op = ( nix => 'rm -rf %s', win => 'rmdir /S %s' );

my %group_for
    = ( ( map { $_ => 'nix' } qw<linux UNIX SunOS> )
      , ( map { $_ => 'win' } qw<MSWin32 WinNT>    )
      );

my $group_name = $group_for{$OS_NAME};
sub chop_tree { 
   my $full_path = shift;
   carp( "No directory $full_path exists! We're done." ) unless -e $full_path;
   croak( "No implementation for $OS_NAME!" ) unless $group_name;
   my $format = $deltree_op{$group_name};
   croak( "Could not find command format for group $group_name" ) unless $format;
   my $command = sprintf( $format, File::Spec->canonpath( $full_path ));
   qx{$command};
}