John,
Thanks for the script. I need to filter the result by a specific file
extension, how do I that? I tried,
( not exists $files{ $dir } or $files{ $dir }{ mtime } -M _ )
and ( @{ $files{ $dir } }{ qw/name mtime/ } = ( $name, -M _ ) )
and ( /^(full)\w*(\.db)$/ )
It does not
Rajesh Dorairajan wrote:
From: John W. Krahn [mailto:[EMAIL PROTECTED]
This should do what you want:
use strict;
use warnings;
use File::Find;
use vars qw( $dir $name );
*dir = *File::Find::dir;
*name = *File::Find::name;
my $localdir = 'C:/docs';
my %files;
find(
Rajesh Dorairajan wrote:
Hello All,
Hello,
I went through all the documentation and previous mail posts about
File::Find and finally decided I needed some help.
I've a directory structure I need to parse. The directory contains
subdirectories with filenames such as
full094382.db
Hey Rajesh,
being a beginner in perl fooling around similar problems like you, I just
have the idea that you might solve the problem by using a hash to store the
information about the file's you have already found .
I've used
($FN,$PATH,$EXT) = fileparse ($File::Find::name,'\..*') ;
to separate
Hello All,
I went through all the documentation and previous mail posts about
File::Find and finally decided I needed some help.
I've a directory structure I need to parse. The directory contains
subdirectories with filenames such as
full094382.db
full483292.db
Now, I need to parse through