25 lines
461 B
Perl
Executable File
25 lines
461 B
Perl
Executable File
#!/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);
|