#!/usr/bin/perl
use strict;
use File::Basename;

sub print_usage () {
        print "Syntax: ./ergebnisaufbereitung.pl <Eingabe-Datei> \n";
}

my $infile=$ARGV[0];
my $inname; 
my $indir;
($inname, $indir) = fileparse($infile);
my $outfile="$indir\VT_$inname";

# Syntax Check 
unless ($infile) {
        print "Bitte Eingabedatei angeben\n";
        print_usage();
        exit(1);
}

print "Ausgabedatei $outfile wird angelegt\n";
open (OUT,">$outfile") || die "Ausgabedatei kann nicht angelegt werden\n $!";

print "Eingabedatei $infile wird geöffnet und verarbeitet...\n";
open (IN,"<$infile") || die "Eingabedatei kann nicht geöffnet werden\n $!";

while (<IN>)
{
if ($_=~ m/VT Kempen|VT Triangel|VT 1859 Kempen|VTT/i)
   {
	$_=~ s/^\s+//g; # führende Leerzeichen, Tabs etc abschneiden
	$_=~ s/  +/;/g; # doppelte oder mehr Leerzeichen eleminieren
	print OUT "$_"; # kein \n da in der Eingabedatei CRL schon enthalten ist.
   }
}
close IN;
close OUT;