use File::Compare;
open( DIFFFILE, ">> $diffFile" )|| die " cannot open $diffFile file !!\n";
print DIFFFILE "Modified Files \n";
print DIFFFILE "
\n";
print DIFFFILE "=========== \n";
print DIFFFILE "
\n";
if (scalar(@modarry) >= 1) {
foreach $f (@modarry) {
print DIFFFILE "
\n";
print DIFFFILE "$f \n";
print DIFFFILE "
\n";
}
}elsif (scalar(@modarry) < 1) {
print DIFFFILE "\t\n None \n";
print DIFFFILE "
\n";
}
close (DIFFFILE);
foreach $f (@modarry) {
@the_string=`diff -r $some_dir/$f $other_dir/$f`;
open( DIFFFILE, ">> $diffFile" )|| die " cannot open $diffFile file !!\n";
print DIFFFILE "
\n";
print DIFFFILE "File being diff'd: $f \n";
}