open(QRY_RES, ") { # Eine Datenzeile aus der Datei lesen # liefert true, wenn eine Zeile gelesen werden konnte chomp $zeile; # Zeilenumbruch entfernen next if (!$zeile); # Leerzeilen ueberspringen $record_couter+=1; #Fusszeile(n) am Seitenende Ausgeben if ($- <= 5 && $- > 0) { $~ = STDOUT_FOOT; write; $~ = STDOUT; #write(STDOUT_FOOT); $-=0; } # Einträge der aktuellen Datenzeile aufsplitten ($suchbegr, $stammnr, $kn, $lzbkn, $kne, $lzbkne, $gs, $pruefk, $ort, $name2, $name3, $personen_id)=split(/;/,$zeile, 12); write; $tmp_rc=$?; if ($tmp_rc != 0) { print STDERR "Fehler beim schreiben des Reports => exit $tmp_rc\n"; exit $tmp_rc; } } #Seitenfuss auch auf letzte Seite schreiben $~ = STDOUT_FOOT; write; print "\nAnzahl der Datensätze: $record_couter"; close(QRY_RES);