in reply to Re^2: extracting name & email address
in thread extracting name & email address

For finding all files recursively, just use File::Find.

use File::Find;
my @found_files;
find( sub { push @found_files, $File::Find::name }, $directory );

[download]

Replies are listed 'Best First'.
Re^4: extracting name & email address
by peterr (Scribe) on Feb 23, 2015 at 08:43 UTC
    Thanks, the following lists only files, so that's a good start. 
    use strict;
use File::Find;

my $directory = '/home/******/Mail/.family.directory/Browne, Bill & Ma
+rtha';

my @found_files;
find( sub { push @found_files, $File::Find::name }, $directory );

foreach(@found_files){
  my $file = "$_";
  if (-f $file)
  {
    print $_,"\n";
  }
}

    [download]
    I will have to have a read up on arrays, and see how to delete certain entries from @found_files.I see that grep can be used. Possibly best to load another array with the (unwanted) filenames.
[reply]
[d/l]

In Section Seekers of Perl Wisdom