Beefy Boxes and Bandwidth Generously Provided by pair Networks
P is for Practical
 
PerlMonks  

Re^2: Dealing with diff command within perl

by bart (Canon)
on Nov 26, 2011 at 20:59 UTC ( #940213=note: print w/ replies, xml ) Need Help??


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

I dare to bet that speedwise, diff the command line program will run circles around Algorithm::Diff.


Comment on Re^2: Dealing with diff command within perl
Re^3: Dealing with diff command within perl
by surajsam (Initiate) on Dec 03, 2011 at 03:36 UTC

    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

      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://940213]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others cooling their heels in the Monastery: (11)
As of 2014-12-18 22:49 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    Is guessing a good strategy for surviving in the IT business?





    Results (67 votes), past polls