#!/usr/bin/perl

sub alt_neu {
    my ($a) = $_[0];
    $a =~ s/\bBarssel\b/Barßel/g;
    $a =~ s/\bFrohnhaus\b/Frohnhausen/g;
    $a =~ s/\bGross Ballhausen\b/Groß Ballhausen/g;
    $a =~ s/\bGross Jammo\b/Groß Jamno/g;
    $a =~ s/\bGross Mohrdorf\b/Groß Mohrdorf/g;
    $a =~ s/\bGross Wechsungen\b/Großwechsungen/g;
    $a =~ s/\bGrossenwiehe\b/Großenwiehe/g;
    $a =~ s/\bHerssum\b/Herßum/g;
    $a =~ s/\bKlafferstrass\b/Klafferstraß/g;
    $a =~ s/\bNeu-Schadow\b/Neu Schadow/g;
    $a =~ s/\bRosswein\b/Roßwein/g;
    $a
}

$max = 6;

$dir = '/home/peter/public_html/duitsland';

@files = qw(
    Bruder.fon
    Dienstag.fon
    Donnerstag.fon
    Freitag.fon
    Gaense.fon
    Haeuser.fon
    Kuehe.fon
    Montag.fon
    Ochsen.fon
    Pfeffer.fon
    Salz.fon
    Schwester.fon
    Seife.fon
    Sonntag.fon
    Winter.fon
    Wurst.fon
    acht.fon
    bauen.fon
    die.fon
    drei.fon
    du.fon
    eins.fon
    fuenf.fon
    gefahren.fon
    groesser.fon
    hoeher.fon
    ich.fon
    kalte.fon
    muede.fon
    neue.fon
    ohne.fon
    sechs.fon
    vier.fon
    von.fon
    wachsen.fon
    weh.fon
    wieviel.fon
    wo.fon
    zwei.fon
    zwoelf.fon
);

open(IN, "<$dir/de.lbl");
while (<IN>) {
    if (/^\s*\d+\s+(\S.*?)\s*$/) {
	push @locs, $1;
    }
}
close IN;

srand;

for ($i = $#locs; $i >= 2; $i--) {
    $n = int(rand($i));
    $t = $locs[$i];
    $locs[$i] = $locs[$n];
    $locs[$n] = $t;
}

for ($i = 0; $i < $max; $i++) {
    $loc = $locs[$i];
    $idx{$loc} = $i + 1;
    $lbl = alt_neu($loc);
    print("$lbl" . (($i < $max - 1) ? "\t" : "\n"));
}

foreach $file (@files) {
    @item = ();
    open (IN, "<$dir/fon/$file");
    while (<IN>) {
	if (/^:\s*(.*?)\s*$/) {
	    $index = int($idx{$1});
	} elsif ($index > 0 && /^-\s*(.*?)\s*$/) {
	    $item[$index - 1] = $1;
	}
    }
    close IN;
    for ($i = 0; $i < $max; $i++) {
	print("$item[$i]" . (($i < $max - 1) ? "\t" : "\n"));
    }
}