Posted By

fwiffo on 01/17/08


Tagged


Versions (?)

binary compare two directories


 / Published in: Perl
 

  1. #!/usr/bin/perl -w
  2.  
  3. $CMP="/usr/bin/cmp";
  4.  
  5. $dir0=$ARGV[0];
  6. $dir1=$ARGV[1];
  7.  
  8. if(!$dir0 || !dir1){ print "Error: need both directory paths to compare";exit;}
  9.  
  10. @files0=`find $dir0 -type f`;
  11. $count=0;
  12. foreach $file0 (@files0){
  13. $file1=$file0;
  14. $file1=~s/$dir0//;
  15. $file1=$dir1.$file1;
  16. chomp($file0);
  17. chomp($file1);
  18. $file0=~s/\$/\\\$/;
  19. $file1=~s/\$/\\\$/;
  20. system("$CMP $file0 $file1");
  21. if($count>10){
  22. print ".";
  23. $count=0;
  24. }else{
  25. $count++;
  26. }
  27. }

Report this snippet  

You need to login to post a comment.