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

[Hack Kampbjørn <sslug@sslug>]

Nezar Nielsen wrote:
> 
> "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('.');
> 

eller bare brug File::Find (perldoc File::Find)

#!perl

use File::Find;

$path = $ARGV[0] || '.';
find(\&ls,$path);

sub ls {
	print "Searching directory $File::Find::name\n" if -d;
	print "\t$_\n";
}

> > 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/

-- 
Med venlig hilsen / Kind regards

Hack Kampbjørn