The UNIX diff utility already contains that exact function. When presented with two directories as arguments, it compares filenames (ignoring contents) and reports the differences.

If you really wanted to do it in Perl, however...I would do what you suggested, but with one small modification. Instead of building two arrays and iterating them both at the end for equality, just create a hash of all the filenames on the first run of find...then check "on-the-fly" during the second run. It's more efficient.

While this recent thread talks about FTP, I believe there are still ideas within that may be useful to you.

HTH,

#!/usr/bin/perl
use warnings;
use strict;
use File::Slurp::Tree;

# The tree datastructure is a hash of hashes.  The keys of  
# each hash are names of directories or files.  Directories  
# have hash references as their value, files have a scalar  
# which holds the contents of the file.  

my $dir = shift || '.';
my %tree;
my $tree = slurp_tree($dir);

my $depth = 0;
print "$dir\n";
print_keys($tree);

sub print_keys {
    my $href = shift;
    $depth++;
    foreach ( keys %$href ) {
        print '    ' x $depth, "--$_\n";
        print_keys( $href->{$_} ) if ref $href->{$_} eq 'HASH';
    }
    $depth--;
}
[download]

T.

_________________________________________________________________________________

I like computer programming because it's like Legos for the mind.