Opened by hcx at 2011-07-06 19:04
Hallo dubu,
Du meintest so:
Leider gibt es immer noch eine Fehlermeldung dass File::Find::Rule nicht gefunden wird:
Last edited: 2011-07-08 15:19:29 +0200 (CEST)
Du meintest so:
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
#!/usr/bin/perl
use warnings;
use strict;
use File::Find::Rule::directory;
print" Welches Verzeichnis soll ich löschen? \n";
my $directory = <STDIN>;
chomp $directory;
my @files = File::Find::Rule->file->in( $directory );
my @no_links = grep{ !-l $_ }@files;
unlink @no_links;
my @dirs = File::Find::Rule->dir->in( $directory );
rmdir $_ for @dirs;
Leider gibt es immer noch eine Fehlermeldung dass File::Find::Rule nicht gefunden wird:
Code: (dl
)
1
2
Can't locate File/Find/Rule/directory.pm in @INC (@INC contains: /etc/perl /usr/local/lib/perl/5.10.1 /usr/local/share/perl/5.10.1 /usr/lib/perl5 /usr/share/perl5 /usr/lib/perl/5.10 /usr/share/perl/5.10 /usr/local/lib/site_perl .) at ./verzeichnis_loeschen.pl line 4.
BEGIN failed--compilation aborted at ./verzeichnis_loeschen.pl line 4.
Last edited: 2011-07-08 15:19:29 +0200 (CEST)