format STDOUT_BOTTOM =

Seite @|||
$%
.

# Formatangabe für STDOUT, normale Zeile
#^<<<<<<<<<<<<<<<<<<<<<<<<< @<< @<< @>>>>> @>>> @>>>>>> @>> @>>>>>>> @>>>>>>>>>>>>
format STDOUT =
^<<<<<<<<<<<<<<<<<<<<<|^<<|^<<|^>>>>|^>>>>|^>>>>>>>|^>>>>|^>>>>>>>|^<<<<<<<<<<<<~~
$suchbegr, $gs, $ab, $stammnr, $kn, $lzbkn, $kne, $lzbkne, $ort
- - - - - - - - - - - + - + - + - - + - - +- - - - + - - + - - - -+- - - - -
.


open(QRY_RES, "</tmp/qry_res.$$.csv");
foreach $zeile (<QRY_RES>) { # Eine Zeile aus dem Datenarry lesen;
                                # liefert true, wenn eine Zeile gelesen werden konnte
  chomp $zeile;      # Zeilenumbruch entfernen

  # Einträge der aktuellen Datenzeile aufsplitten
  ($suchbegr, $stammnr, $kn, $lzbkn, $kne, $lzbkne, $gs, $pruefk, $ort, $name2, $name3, $personen_id)=split(/;/,$zeile, 12);

  write;
}

close(QRY_RES);