Believe you could add something like:
map {$_=>1} $DIREC;
my @MyStats = stat($File::Find::name);
print DEST stat("$File::Find::name;" . join(";", @MyStats) . "\n");
Tried it out and it generated data like this:
d:/CurrWrka/00CommonPerl/examples/Extending/
On Sun, Jul 22, 2001 at 08:34:18PM -0500, [EMAIL PROTECTED] wrote:
> opendir(DIR, "/etc/") or die "Can't open directory : $!\n";
> my @list = readdir(DIR);
> for $file(@list) {
> next if ( -d $file );
> $info = (stat($file))[7];
> print "Filename: $file : $info\n";
> }
> closedir(D
