[Perl] Dircount

[Verwijderd]

Kun je van een bepaalde direcory direct het 'aantal' subdirectories opvragen?
Want in een loop duurt dit te lang.

[ Voor 12% gewijzigd door Verwijderd op 23-04-2003 08:27 ]

[pistole]

Ik heb weinig tot geen ervaring met Perl, maar je zou eens kunnen zoeken naar een module (http://www.perl.com/CPAN-local/modules/01modules.index.html), dan wel een `ls` commando i.c.m. `wc` en dergelijke kunnen gebruiken

/edit: welk OS/platform?

[ Voor 6% gewijzigd door pistole op 23-04-2003 08:32 ]

[Verwijderd]

ff kijken...

Het zou moeten werken in een windows-omgeving

[pistole]

kijk ook even hier, dan kom je er vast wel uit

[Verwijderd]

not
Kvind de juiste module ni echt mor still searching..

[jvhaarst]

http://www.experts-exchan...ages/Perl/Q_20036790.html
http://www.perlmonks.org/index.pl?node_id=168869
Voorbeeld:

Perl:

#!/usr/bin/perl -w
use strict;
use Cwd;
my $path = getcwd;

opendir DIR, $path or die "Couldn't read directory: $!";
my @directories = grep { -d "$path/$_" } readdir DIR;
closedir DIR;

foreach (@directories) {
    print $_, "\n";
}

Kort samengevat :
Stop de dirlist in een array, test van iedere "file" in die array of het een directory is, en klaar.
Enig dingetje om op te letten is dus dat de test een file met een compleet pad verwacht.

[ Voor 92% gewijzigd door jvhaarst op 23-04-2003 10:53 ]