#!/usr/bin/perl
use strict;
use warnings;

my $indexfile = shift;
my @texfiles = @ARGV;

# index_datei einlesen
open INPUT, $indexfile or die $!;
my @to_parse = <INPUT>;
close INPUT;

my %index;

foreach my $eintrag (@to_parse) {
    # Format: <gesuchteswort> <indexname> <beschreibung>
    $eintrag =~ m~^(\S+)\s+(\S+)\s+(.+)$~;
    $index{$ 1} = $ 2
    # Oben sollte natürlich $ 1 und $ 2 zusammengeschrieben werden
}

foreach my $texfile (@texfiles) {
    open TEXFILE, $texfile or die $!;
    my @inhalt = <TEXFILE>;
    close TEXFILE;

    open OUTFILE, "$texfile.out" or die $!;
    foreach my $zeile (@inhalt) {
            $zeile =~ s~($_)~\\index{$index{$_}}~i foreach keys %index;
            print OUTFILE $zeile;
    }
    close OUTFILE;
}