On Thu, 25 Jul 2002 08:09:17 -0400, [EMAIL PROTECTED] (William
Black) wrote:
>Hi All,
>
>I need an idea on how to approach a script. Say I had a directory X with 50
>files in it and I have another directory Y that is suppose to have the same
>exact files in it as X. How could someone approach checking directory Y
>aginst X to see if they had the same files?
Here, this will get you most of the way there.
I'm stumped. To test this, I copied some files
from X to Y, but the md5_hex sums don't agree.
?????
I checked the files with a hexdiff program and
they are identical. I wonder if Digest::MD5 can
be trusted???
############################################
#!/usr/bin/perl
use Digest::MD5 qw(md5_hex);
$path= '/home/zentara/X/';
$path1='/home/zentara/Y/';
opendir DIR, $path or die "can't ls $path: $!";
@X= grep { $_ ne "." and $_ ne ".." } readdir DIR;
close DIR;
opendir DIR, $path1 or die "can't ls $path: $!";
@Y= grep { $_ ne "." and $_ ne ".." } readdir DIR;
close DIR;
#print "@X\n@Y\n";
foreach $file (@X){
$file1= $path1.$file;
print "$file1\n";
print md5_hex($file),"\n";
print md5_hex($file1),"\n";
if ( md5_hex($file) ne md5_hex($file1)){
print "$file is not identical\n"}
}
%Z = map { $_ => 1 } @Y;
@diff = grep { not $Z{$_} } @X;
print "$path1 is missing @diff\n";
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
