Distinzione tra file e dir

[cokeduck]

in lettura di una dir è possibile distinguere le sotto dir dai files?
Grazie

[Mich_]

if(-d NOMEFILE) ...
http://www.perldoc.com/perl5.6.1/pod/func/X.html

[cokeduck]

grazie

[cokeduck]

ho provato ad usare l'istruzione che hai scritto ma riesco a filtrare solo le cartelle "." e ".."
Il mio codice è:
@list = readdir($path);
for($i=0; $i<=$#list; $i++) {
if(-d $list[$i]) print $list[$i];
}

[Mich_]

Ma negli elementi del vettore @list, c'e` tutta la path?

Forse devi fare:

@list = readdir($path);
for(my $i=0; $i<@list; $i++) {
  if(-d $path$list[$i]) print $list[$i];
}

[cokeduck]

Perfetto! Grazie 1000

[shishii]

che ve ne pare di questo:

foreach $dir (grep -d && !/^\.\.?$/, readdir($path)) {print "$dir\n";}