git-log-collect-gh-issues.pl

#!/usr/bin/env perl
use strict;
use warnings;

# Collect ([GH #NN] | GH-NN) lines and format them for Changes.
# (Hand editing is required, though.)

# Use this like following:
# git log 1.00..1.01 | git-log-collect-gh-issues.pl
#

{
  my %issues;
  while (<>) {
    chomp;
    m/(\[GH \#(?<issue>\d+)\]|GH-(?<issue>\d+))/
      or next;
    s/^\s*(For|Fix(es)?)\s+//
      or next;
    my @issues;
    while (s/^\s*(\[GH \#(?<issue>\d+)\]|GH-(?<issue>\d+))//) {
      push @issues, $+{issue};
    }
    foreach my $issue (@issues) {
      push @{$issues{$issue}}, $_;
    }
  }

  my $indent = "    ";

  print map {
    "$indent* GH-$_". join("\n$indent ", @{$issues{$_}}). " \n"
  } sort {$b <=> $a} keys %issues;
}