Beefy Boxes and Bandwidth Generously Provided by pair Networks
Don't ask to ask, just ask
 
PerlMonks  

Re^3: Dealing with diff command within perl

by surajsam (Initiate)
on Dec 03, 2011 at 03:36 UTC ( #941476=note: print w/ replies, xml ) Need Help??


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

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

    sorry I did not post the actual compare that I used

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://941476]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others chanting in the Monastery: (4)
As of 2014-07-10 05:43 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    When choosing user names for websites, I prefer to use:








    Results (199 votes), past polls