#!/usr/bin/perl -w
use strict;
use warnings;
use Data::Dumper;

my ($main_games_file, @other_games_files) = @ARGV;

my %games_by_id;
open my $games_fh, '<', $main_games_file
	or die "cannot open $main_games_file";
binmode $games_fh, ':utf8';
while (defined (my $line = <$games_fh>)) {
	my ($id) = $line =~ /^(\d+)/;
	$games_by_id{$id} = $line;
}
close $games_fh;

for my $file (@other_games_files) {
	my @ids;
	open my $fh, '<', $file
		or die "cannot open $file";
	binmode $fh, ':utf8';
	while (defined (my $line = <$fh>)) {
		my ($id) = $line =~ /^(\d+)/;
		push @ids, $id;
	}
	close $fh;

	open $fh, '>', $file
		or die "cannot write $file";
	binmode $fh, ':utf8';
	print $fh $games_by_id{$_} for @ids;
	close $fh;
}