Beefy Boxes and Bandwidth Generously Provided by pair Networks
Think about Loose Coupling
 
PerlMonks  

Re^3: Dealing with diff command within perl

by surajsam (Initiate)
on Dec 03, 2011 at 03:36 UTC ( [id://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

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;

    sorry I did not post the actual compare that I used

Log In?
Username:
Password:

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

How do I use this?Last hourOther CB clients
Other Users?
Others admiring the Monastery: (5)
As of 2024-03-28 17:09 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found