paper-cutter/{{cookiecutter.paper_repo_name}}/extract-score-files.pl

#!/usr/bin/perl

use strict;

my %found = ();

for my $filepath (@ARGV) {
    open(my $ih, '<', $filepath);
    binmode($ih, ':utf8');

    while (my $line=<$ih>) {
        while ($line =~ m<\\gonito(?:barescore|score|entry)\{([^\}]+)\}>g) {
            my $k = $1;

            if ($k ne '#1') {
                $found{$k} = 1;
            }
        }
    }

    close($ih);
}

print join(" ", map { "scores/${_}.txt" } map { s/ /\\ /g; $_} sort keys %found);