perlgov-team-update: to generate new perlgov member listing

I hate this program.  I had a hard time clearing my mind to write it, so
it is bad, but it works.

diff --git a/Porting/perlgov-team-update b/Porting/perlgov-team-update
new file mode 100644 (file)
index 0000000..f572718
--- /dev/null
+++ b/Porting/perlgov-team-update
@@ -0,0 +1,26 @@
+#!/usr/bin/env perl
+use v5.30.0;
+use warnings;
+use JSON::PP;
+
+my $file = 'Porting/core-team.json';
+my $data = JSON::PP->new->decode(scalar `cat $file`);
+
+my $pod = q{};
+
+for my $key (qw( active inactive )) {
+  $pod .= qq{=head2 \u$key Members\n\n=over 4\n\n};
+
+  my @items = map {; "<$_>" } $data->{$key}->@*;
+
+  open(my $fh, '-|', 'git', 'check-mailmap', @items)
+    or die "error running check-mailmap: $!";
+
+  my @lines = <$fh>;
+
+  $pod .= "=item $_\n" for sort @lines;
+
+  $pod .= "=back\n\n";
+}
+
+say $pod;