msc-drozdz/extract-score-files.pl

21 lines
388 B
Perl
Raw Normal View History

2021-10-18 21:37:05 +02:00
#!/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);