File::Find is good for listing files, but for comparing 2 directories, I prefer rsync, which can do that in 1 line. There is a Perl wrapper File::Rsync, and a Perl implementation File::RsyncP as well.

#!/usr/bin/perl
use strict;
use File::Find;

find (\&wanted, '.');

sub wanted {
   next if -d; # skip if it's a directory
   # $_ is the name of the file
   # $File::Find::name is the full path and name to the file
print "$File::Find::name\n";

}
[download]

Here is a way to put the listings into a hash, so you could cycle thru the hash and compare.

#!/usr/bin/perl -w
use strict;
use Data::Dumper;

sub hashdir {
    my $dir = shift || '.';
    opendir my $dh, $dir or die $!;
    my $tree = {}->{$dir} = {};
    while ( my $file = readdir($dh) ) {
        next if $file =~ m[^\.{1,2}$];
        my $path = $dir . '/' . $file;
        $tree->{$file} = hashdir($path), next if -d $path;
        push @{ $tree->{'.'} }, $file;
    }
    return $tree;
}

my $tree = hashdir(shift);

print Dumper $tree;
[download]

Thanks By comparison I want to compare their names. and also check if there is any zero byte file and if there is then list it out. First I need to collect all the files (recursively) from two similar directories say Dir_build1 and Dir_Build2 in say 2 arrays and then compare them by name and find out any differences. Then its directory i.e. if difference comes out in Dir_build2 then it should display that Dir_Build 2 have x y z files different than Dir_build1 Could you please help me ?

Honestly, I'd do this with a few command-line tools, rather than Perl, but the concepts would be the same:

find Dir_build1 Dir_build2 -type f -size 0 >/tmp/zeros
find Dir_build1 -type f | sort >/tmp/1
find Dir_build2 -type f | sort >/tmp/2
comm -3 /tmp/1 /tmp/2
[download]

To do it in Perl, I'd use File::Find to recursively scan through each directory, adding the file names to an array (probably a hash, actually) for each, then sort and compare the two. During the scans, I'd also build a list of zero-byte files, to avoid scanning through them twice, of course.

Why don't you post what you have tried? Then we can help you fix it. This is not a code writing service and the posts above should be enough to get you started.


-pete
"Worry is like a rocking chair. It gives you something to do, but it doesn't get you anywhere."

By comparison I want to compare their names. and also check if there is any zero byte file and if there is then list it out.

Google for perl directory file compare, and you will find many pre-written scripts which you can modify. For example, Compare Directories and List Changed or Missing Files

---

I'm not really a human, but I play one on earth.
Old Perl Programmer Haiku ................... flash japh

"File::Find" module helps to processs all the files and folders in a directory.