Re: [PERL] [newbee igen] fuldt udvidet filtræsliste som tekstfil ?

["Nezar Nielsen" <sslug@sslug>]

"Michael Schmidt" <sslug@sslug> skrev i en meddelelse
news:sslug@sslug
> Hej alle
> Har næsten glemt alt hvad jeg har lært -men det vender nok tilbage :)
>
> Er der en nem måde at få listet mappe- og filstrukturen fra en given
rodfolder?

her er en nem måde uden noget fejlhåndtering:

sub handledir{
 my $dir=shift;
 my $dirhandle;
 opendir($dirhandle,$dir);
 while(my $filename=readdir($dirhandle)){
  next if $filename=~/^\.+$/; #skip dots
  handledir($dir.'/'.$filename) if -d $dir.'/'.$filename;
  print "$dir/$filename\n" if -f $dir.'/'.$filename;
 }
}
handledir('.');


> Gerne i stil med:

..så må du selv lave noget med at handledir får niveau'et sendt med som
parameter, og sørger for at rykke ind..

--
Mvh. Nezar Nielsen
http://fez.dk/