utils/hunkfinder.pl

   1 #!/usr/bin/env perl
   2 use strict;
   3 use warnings;
   4
   5 #usage: cat mayday.diff | utils/hunkfinder.pl data/init/interface.txt 24
   6
   7 my $filename = $ARGV[0] or die "need filename of diffed file";
   8 my $hunkno = $ARGV[1] or die "need hunknumber as second arg";
   9
  10 my $infile = 0;
  11 my $hunk = 0;
  12 my $switched = 0;
  13
  14 while(<STDIN>) {
  15         $switched = 0;
  16         $infile = 1, $switched = 1 if(!$infile && /^diff (.*?)\Q$filename\E/);
  17         if($infile) {
  18                 if(/\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*/) {
  19                         $hunk++;
  20                 }
  21                 if($hunk == $hunkno) {
  22                         print;
  23                 }
  24                 $infile = 0 if(!$switched && /^diff /);
  25         }
  26 }