msc-drozdz/extract-score-files.pl
2022-03-22 05:59:09 +00:00

21 lines
388 B
Perl

#!/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);
}
print join(" ", map { "scores/${_}.txt" } map { s/ /\\ /g; $_} sort keys %found);