nicht angemeldet
Hi,
Wenn ein Wert in einem Datenfeld steht, soll er in Anführungszeichen stehen, wenn das Feld leer ist, soll es leer bleiben (ohne die " ").
Leseempfehlung:
perldoc -f map
( $PRUEFGR, $BENGR, $PDID, $TFID, $TBID, $FORMELID, $PARM1, $PARM2, $PARM3 ) = $db->Data(); # Daten aus den Datenfeldern lesen
*örgs* Leicht unleserlich... konsultiere bitte auch mal
perldoc perlstyle
zu dem Thema, wann Variablennamen groß sein sollten und wann nicht :-)
if length ($PRUEFGR) >0 $PRUEFGR=join("",",$PRUEFGR,");
Hier wären mindestens runde, und wenn Du das if nicht nach hinten setzt acuh geschweifte Klammern angebracht. Gleiche Lektüre.
$newline = join (",",$PRUEFGR, $BENGR, $PDID, $TFID, $TBID, $FORMELID, $PARM1, $PARM2, $PARM3,"\n");
Möchtest Du nicht lieber ein Array anlegen? Ferner: Das "\n" möchtest Du vermutlich nicht durch Komma abtrennen, oder? Vergiss danach aber nicht...
print OUTFILE $newline;
...das Newline nach dem $newline ;-)
Cheatah