Re: [PERL] Gennemløbe biblioteks træ?

[Flemming Mahler Larsen <sslug@sslug>]

On Tue, 5 Dec 2000, Søren Lambæk wrote:

> Er der nogen der kan give mig et eksempel på en perlfunktion, der tager
> en sti til f.eks /mnt/cdrom og herefter lister samtlige filer også nede i
> sub dir's.

Mon ikke du kan klare dig med noget i stil med...
-- start --
#!/usr/bin/perl -w
use strict;
use Data::Dumper;
use File::Find;
use File::Basename;

my @files;
chdir("/mnt/cdrom");
find (\&fetchFilename, ".");

print Dumper @files;

exit();

sub fetchFilename {
       my $file = $_;
       #print "* $File::Find::name\n" if (!-d $file); # Don't print Directories
       print "* $File::Find::name\n"; # Print everything found
       push @files, $File::Find::name;
};

-- stop --

// Flemming
--
Flemming Mahler Larsen, Tele Danmark Internet
http://projekt.tele.dk.net/about/mahler.html // +45 3527 9013