Beitrag von weisgerber (23 Beiträge) am Dienstag, 4.Dezember.2001, 21:53.
Ausgabe mit Perl
Ich verstehe jetzt garnix mehr!
Bei folgendem Quellcode:
(Auszug)
<perl>
get "Datum==$Datum", "presse";
out '<tr>';
out ' <td align="left" valign="top" class="Text">';
out datum("$Datum", "Tag0.Monat0.Jahr");
out ':<i> ';
out $Zeitung;
out ', ';
out $Ausgabe;
out '</i>';
out ' </td>';
out '</tr>';
out '<tr>';
out ' <td align="left" valign="top" class="Zeitung">;
out $Ueberschrift;
out ' </td>';
out '</tr>';
out '<tr>';
out ' <td align="left" valign="top" class="Text">';
out ' ';
out ' </td>';
out '</tr>';
out '<tr>';
out ' <td align="left" valign="top" class="Text">';
out ".convert_br($Text).";
out ' </td>';
out '</tr>';
</perl>
erhalte ich diese Fehlermeldung:
Transliteration pattern not terminated at (eval 8594) line 27.
Antworten
Beitrag von Stefan Krupop (311 Beiträge) am Dienstag, 4.Dezember.2001, 22:07.
Re: Ausgabe mit Perl
Hier stehckt der Fehler:
out ' <td align="left" valign="top" class="Zeitung">;
Da fehlt am Ende das Anführungszeichen.
Dann mußt du aber noch
out ".convert_br($Text).";
durch
out convert_br($Text);
ersetzen.
Zum Schluss lässt sich die out-Orgie noch kürzen:
<perl>
get "Datum==$Datum", "presse";
out <<EOF;
<tr>
<td align="left" valign="top" class="Text">
EOF
out datum("$Datum", "Tag0.Monat0.Jahr");
out <<EOF;
:<i>$Zeitung, $Ausgabe</i>
</td>
</tr>
<tr>
<td align="left" valign="top" class="Zeitung">
$Ueberschrift
</td>
</tr>
<tr>
<td align="left" valign="top" class="Text">
</td>
</tr>
<tr>
<td align="left" valign="top" class="Text">
EOF
out convert_br($Text);
out <<EOF;
</td>
</tr>
EOF
</perl>
Stefan
Antworten
Beitrag von weisgerber (23 Beiträge) am Mittwoch, 5.Dezember.2001, 18:20.
Re: Ausgabe mit Perl
Jetzt gibt er alles wieder aus. aber das mit den zeilenumbrüchen geht immer noch nicht.
HILFE!
Was bedeutet eigendlich das EOF?
Antworten
Beitrag von Stefan Krupop (311 Beiträge) am Mittwoch, 5.Dezember.2001, 18:32.
Re: Ausgabe mit Perl
Antworten
Beitrag von weisgerber (23 Beiträge) am Donnerstag, 6.Dezember.2001, 18:47.
Re: Ausgabe mit Perl
Das Feld hat den Typ Text im Bereich HTML. textarea hab ich aber auch schon ausprobiert!
Antworten
Beitrag von Stefan Krupop (311 Beiträge) am Freitag, 7.Dezember.2001, 19:30.
Re: Ausgabe mit Perl
*ratlosguck*
Hm, poste doch mal bitte den Link zur Ausgabeseite und deren Source. Du hast beim Eingeben auch wirklich Return/Enter/Eingabe gedrückt, ja? ;)
Stefan
Antworten
Beitrag von weisgerber (23 Beiträge) am Samstag, 8.Dezember.2001, 13:24.
Re: Ausgabe mit Perl
http://www.baseportal.de/cgi-bin/baseportal.pl?htx=/musikverein_saarwellingen/presse/artikel&Var=14.Oktober.2001
das ist der Link!
Und ich hab zu 100% deinen Quelltext übernommen:
<perl>
get "Datum==$Var", "presse";
out <<EOF;
<tr>
<td align="left" valign="top" class="Text">
EOF
out datum("$Datum", "Tag0.Monat0.Jahr");
out <<EOF;
:<i>$Zeitung, $Ausgabe</i>
</td>
</tr>
<tr>
<td align="left" valign="top" class="Zeitung">
$Ueberschrift
</td>
</tr>
<tr>
<td align="left" valign="top" class="Text">
</td>
</tr>
<tr>
<td align="left" valign="top" class="Text">
EOF
out convert_br($Text);
out <<EOF;
</td>
</tr>
EOF
</perl>
aber es geht net!
Antworten
Beitrag von Stefan Krupop (311 Beiträge) am Samstag, 8.Dezember.2001, 13:41.
Re: Ausgabe mit Perl
Tja, ich hab's noch mal ausprobiert, klappt einwandfrei. Es scheint an den Daten in der Datenbank zu liegen. Wenn man das convert_br rauslässt, wird zwar kein <br> eingefügt, es findet aber trotzdem ein Zeilenumbruch statt (im Quelltext). In deinem Quelltext gibt es keinen Umbruch -> auch beim Eingeben oder Einfügen wurde kein Zeilenumbruch gemacht. Wenn du deinen Datensatz noch mal änderst und an den gewünschten Stellen die Zeile umbrichst sollte das auch in der Ausgabe klappen.
Stefan
Antworten
Beitrag von weisgerber (23 Beiträge) am Samstag, 8.Dezember.2001, 14:20.
Re: Ausgabe mit Perl
das iss mir jetz aber peinlich!
die Zeilenumbrüche sind wohl verschwunden, als ich von text zu textarea geändert habe! Jetzt funz es endlich!
Danke für eure gedult mit mir!
-Michael
Antworten