Re^3: Dealing with diff command within perl

in reply to Re^2: Dealing with diff command within perl
in thread Dealing with diff command within perl

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";
}
[download]

use File::Compare, to get the list of modified files between two dirs, then run the diff command. Not efficient but it did work

Comment on Re^3: Dealing with diff command within perl Download Code

Replies are listed 'Best First'.
Re^4: Dealing with diff command within perl by surajsam (Initiate) on Dec 03, 2011 at 03:39 UTC
`if (compare("$some_dir/$f","$other_dir/$f") != 0) { print "\n pushing $f to modarray\n"; push @modarry, $f;` [download] sorry I did not post the actual compare that I used	[reply] [d/l]

In Section Seekers of Perl Wisdom