get-dist-git-hashes.pl

#!/usr/bin/perl
use strict;
use warnings;
use MCE::Loop;

my $if = shift @ARGV or die "Usage: get-dist-git-hashes.pl <selfhosting-source-packages-full.txt>\n";

my @pkgs;
open my $fh, '<', $if or die "Cannot open '${if}': $!\n";
while (<$fh>) {
    chomp;
    /^\d+:(.+)\.src$/;
    push @pkgs, $1;
}
close $fh or die "Cannot close '${if}': $!\n";

MCE::Loop::init { max_workers => 16 };

mce_loop {
    my ($mce, $cref, $cid) = @_;
    for (@$cref) {
        my $output = `koji buildinfo $_`;
        $output =~ /\/[^:]+:([a-f0-9]+)/;
        MCE->say($_ . ": $1");
    }
} @pkgs;