#!/usr/bin/perl
use warnings;
use strict;
open(my $fhListe, "<Liste.txt") or die $!;
my %pnr;
while(my $zeile = <$fhListe>) {
chomp $zeile;
my @felder = ();
@felder = split(/ /, $zeile);
$pnr{$felder[0]} = $felder[1];
} # while
close($fhListe) or die $!;
##############################
open(my $fhDatei, "<Datei.txt") or die $!;
open(my $fhErgebnis, ">Ergebnis.txt") or die $!;
while(my $zeile = <$fhDatei>) {
chomp $zeile;
my @satz = ();
@satz = split(/ /, $zeile);
my $ergListe = "!LEER!";
$ergListe = $pnr{$satz[0]} if defined $pnr{$satz[0]};
print $fhErgebnis $ergListe."-".sprintf("%03d", $satz[2])."-".sprintf("%05d", $satz[4])."/000.00\n";
} # while
close($fhDatei) or die $!;
close($fhErgebnis) or die $!;
print "Fertig.\n";
1;