################################################# # Multi-Post-Blocker (MPB) / Mehrfachpostsperre # ################################################# open(FILEMANAGER, "+>>coresys/incoming.csv") or die "ERROR: Unable to open the IC-file!"; flock(FILEMANAGER, LOCK_EX); while(! eof(FILEMANAGER)) { my $zeile = ; my ($DB_customstorycode, $DB_headline, $DB_benutzergeschichte, $DB_zaehler, $DB_internetpost, $DB_tbgelesen, $DB_IPAdresse, $DB_Monatstag, $DB_Monat, $DB_Jahr, $DB_Stunden, $DB_Minuten, $DB_Sekunden, $DB_clientdatakey,) = split(/;/,$zeile); push (@FileData, $zeile); }