Verzeichnis rekursiv löschen - #150217 (Allgemeines zu Perl)

renee

2011-07-07 15:31

User since
2003-08-04
14371 Artikel
ModeratorIn

Unabhängig von der Problematik in dem aktuellen Skript: Warum löschst Du nicht mit der Funktion remove_tree aus CPAN:

File::Path?

Code (perl): (dl )

1
2
3

use File::Path qw(remove_tree);

remove_tree( $verzeichnis );

Oder warum liest Du nicht die Dateien mit File::Find::Rule ein und löschst diese:

Code (perl): (dl )

use File::Find::Rule;

my $dir = '/path/';

my @files = File::Find::Rule->file->in( $dir );
my @no_links = grep{ !-l $_ }@files;

unlink @no_links;

my @dirs = File::Find::Rule->dir->in( $dir );
rmdir $_ for @dirs;

OTRS-Erweiterungen (http://feature-addons.de/)
Frankfurt Perlmongers (http://frankfurt.pm/)
--

Unterlagen OTRS-Workshop 2012: http://otrs.perl-services.de/workshop.html
Perl-Entwicklung: http://perl-services.de/