testen ob Verzeichnis leer (Allgemeines zu Perl)

alexus-777

2004-06-05 12:03

User since
2004-04-13
121 Artikel
BenutzerIn
[default_avatar]

Hallo,

wie teste ich am besten ob eine Verzeichnis leer ist?

Gruß Alexander

[E|B]

2004-06-05 13:28

User since
2003-08-08
2561 Artikel
HausmeisterIn

Hallo!

Quote
opendir(D, "files") or die $!;
@files = grep{$_ =~ m/\w/} readdir(D);
closedir(D);

print "Verzeichnis leer!" if(@files eq "");

Gruß, Erik!

s))91\&\/\^z->sub{}\(\@new\)=>69\&\/\^z->sub{}\(\@new\)=>124\&\/\^z->sub{}\(\@new\)=>);
$_.=qq~66\&\/\^z->sub{}\(\@new\)=>93~;for(@_=split(/\&\/\^z->sub{}\(\@new\)=>/)){print chr;}

It's not a bug, it's a feature! - [CGI-World.de]

renee

2004-06-05 13:33

User since
2003-08-04
14371 Artikel
ModeratorIn

[E|B
,05.06.2004, 11:28]@files = grep{$_ =~ m/\w/} readdir(D);

Ich würde eher

Code: (dl )

grep{$_ !~ /^\.\.?$/}

machen.
Ich habe häufiger Dateien, die als Namen nur Zahlen haben...

und

Code: (dl )

print "Verzeichnis leer!" if(scalar(@files) == 0);

\n\n

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/

alexus-777

2004-06-05 14:22

User since
2004-04-13
121 Artikel
BenutzerIn
[default_avatar]

@renee
steht eigentlich \w nicht für Buchstaben und Zahlen? Vielleicht irre ich mich.

Danke! :)

[E|B]

2004-06-05 14:32

User since
2003-08-08
2561 Artikel
HausmeisterIn

[quote=alexus-777,05.06.2004, 12:22]@renee
steht eigentlich \w nicht für Buchstaben und Zahlen? Vielleicht irre ich mich.

Danke! :)[/quote]
Nein, \w enthält Buchstaben und Zahlen ([A-Za-z0-9_]).
Somit ist mein Beispiel schon korrekt.

Gruß, Erik!

s))91\&\/\^z->sub{}\(\@new\)=>69\&\/\^z->sub{}\(\@new\)=>124\&\/\^z->sub{}\(\@new\)=>);
$_.=qq~66\&\/\^z->sub{}\(\@new\)=>93~;for(@_=split(/\&\/\^z->sub{}\(\@new\)=>/)){print chr;}

It's not a bug, it's a feature! - [CGI-World.de]

renee

2004-06-05 15:37

User since
2003-08-04
14371 Artikel
ModeratorIn

uups, natürlich...

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/

Gast Gast

2004-06-05 16:02

oder so ...

Code: (dl )

opendir DIR, $dir or die $!;
my $files = grep /\.\w+$/, readdir DIR;
closedir DIR;

$files == 0 && print "Verzeichnis leer!";

DS

2004-06-05 16:54

User since
2003-08-04
247 Artikel
BenutzerIn
[default_avatar]

Was spricht in dem Fall gegen glob?

Code (perl): (dl )

print 'Verzeichnis ist ', glob($dir.'/*') ? 'nicht ' : '', 'leer!';

jan

2004-06-05 17:34

User since
2003-08-04
2536 Artikel
ModeratorIn

oder scalar readdir DIR > 2?

coax

2004-06-05 17:40

User since
2003-08-11
457 Artikel
BenutzerIn
[default_avatar]

Kann man sich vielleicht darauf verlassen, dass Verzeichnisse mit zwei (2) Links leer sind?
Dann sollte es ja so funktionieren:

Code: (dl )

1
2
3

my $dir = 'leeres_verzeichnis';
die $dir . " ist kein Verzeichnis oder existiert nicht\n" unless -d $dir;
printf("Verzeichnis %s ist %s\n", $dir, (stat($dir))[3] == 2 ? 'leer' : 'nicht leer');

Grusz Christian.

,,Das perlt aber heute wieder...'' -- Dittsche