Front page | perl.riscos |
Postings from April 2008
File::Find
From:
Derek.Moody
Date:
April 9, 2008 07:35
Subject:
File::Find
Message ID:
Marcel-1.53-0409104541-0b0BxcK@strongarm.dereks.pad
Hi Folks,
Perl 5.8.8-1 RO 3.7 in raFS
Can someone check the following:
Substitute appropriate directories for 'dira dirb' (shift-drag) and see how
deep this script goes...
########################
#!/usr/bin/perl -w
use File::Find;
use strict;
my @dirs= qw/ dira dirb /;
find(\&wanted, @dirs);
sub wanted{
print "$File::Find::dir - $_\n";
}
########################
It only goes one directory deep here :-(
Runs full depth on my linux box.
Cheerio,
--
>> derek.moody@clara.net
-
File::Find
by Derek.Moody