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

21 lines
388 B
Perl
Raw Permalink Normal View History

#!/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) {
$found{$1} = 1;
}
}
close($ih);
}
2021-09-17 12:16:34 +02:00
print join(" ", map { "scores/${_}.txt" } map { s/ /\\ /g; $_} sort keys %found);