First of all, thanks Monks for your suggestions. This is what worked for me-
use File::Compare;
open( DIFFFILE, ">> $diffFile" )|| die " cannot open $diffFile
+file !!\n";
print DIFFFILE "Modified Files \n";
print DIFFFILE "<br>\n";
print DIFFFILE "=========== \n";
print DIFFFILE "<br>\n";
if (scalar(@modarry) >= 1) {
foreach $f (@modarry) {
print DIFFFILE "<br>\n";
print DIFFFILE "$f \n";
print DIFFFILE "<br>\n";
}
}elsif (scalar(@modarry) < 1) {
print DIFFFILE "\t\n None \n";
print DIFFFILE "<br>\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 "<br>\n";
print DIFFFILE "File being diff'd: $f \n";
}
use File::Compare, to get the list of modified files between two dirs, then run the diff command.
Not efficient but it did work
|