##################################
# Read-Out-Engine / Buchausleser #
##################################

# bitte das drei-Variablen-open benutzen.
# Du schreibst ja keinen perl3 Code.
# und bitte Richtige Variablen als Filehandle nutzen.
# Das erspart dir einigen Ärger.
# Das ist jetzt möglicherweise noch nicht wichtig
# solltest du aber mal größere Scripte schreiben,
# dann hast du dir die gute Schreibweise schon angewöhnt
# und jetzt tut es nicht weh.
open(my $LESER, '<', "coresys/message.csv") or die "ERROR: Unable to open the Message-file during read-access!";
flock($LESER, LOCK_SH);

my @Collector;
my $counter = 0;

while(my $zeile = <$LESER>){

  # "zeilelende" "\n" entfernen
  chomp($zeile);
  push (@Collector, [ ++$counter, split(/;/,$zeile) ]);
}
close($LESER);

foreach my $array_ref (@Collector) {
  my ($counter, $DB_nick, $DB_nachricht, $DB_zaehler, $DB_gbrgelesen, $DB_IPAdresse, $DB_Monatstag, $DB_Monat, $DB_Jahr, $DB_Stunden, $DB_Minuten, $DB_Sekunden)=@$array_ref;

  print <<"ENDE";
<div class="buch_eintrag">
<p class="textvariante_c">($counter) Name: $DB_nick [Datum: $DB_Monatstag.$DB_Monat.$DB_Jahr / $DB_Stunden:$DB_Minuten:$DB_Sekunden Uhr]
</p>
<p class="textvariante_d">$DB_nachricht.
</p>
</div>
ENDE
}