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"; }