nicht angemeldet
Absätze im Perl in Html ausgeben
Hallo,
wer kann mir helfen?
Ich habe eine Datenbank mit msql erstellt in dem Texte abgespeichert werden sollen.
Wenn ich die Texte aber abrufe mit SELECT und in Html einbinde sind die Absäte nicht vorhanden. Wie bekomme ich das hin das die Absatze mit übernommen werden.
Bitte um Rat
Gruß Ille
Hier das Sript
#----------------------------------------
my $STH =$DBH->prepare('SELECT inhalt FROM text')
or die "Konnte SQL-Statement nicht bereitstellen:$!";
$STH->execute()
or die "Ausfuehren nicht moeglich:$!";
if ($STH->rows !=0){
print<<HERE_TEXT;
Content-type:text/html
<HTML>
<HEAD>
<TITLE>Antwort</TITLE>
</HEAD>
<BODY>
<table width="80%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td><p><img src="http://localhost/img/logo1.gif" width="84" height="85"></p>
<p>Hallo mysql Datenbank aud localhost.</p>
<p> Sript insert.pl in cgi/bin</p>
<p>
<H1>Willkommen</H1>
<table border="0" cellspacing="0" cellpadding="0">
<TR>
<TD WIDTH="550">Inhalt:</TD>
</TR>
</TR>
</table>
HERE_TEXT
my @data;
while (@data =$STH->fetchrow_array()){
my $text =$data[0];
print qq§<TR>\n<TD>$text</TD>\n§;
}
}
else {
print "Leider brachte die Suche kein Ergebnis";
}
$DBH->disconnect();
#sript ende
-
Moin,
Wie bekomme ich das hin das die Absatze mit übernommen werden.
Ich weiss nicht, ob ich Dich richtig verstanden habe - aber falls Du meinst, dass Zeilenumbrüche in einem Text (die normalerweise mittels \n oder \r\n erzeugt werden) in HTML nicht angezeigt werden, musst Du diese umwandeln in HTML-zeilen-Umbrüche (<br>-tags), z.B. so:
my @data;
while (@data =$STH->fetchrow_array()){
my $text =$data[0];$text =~ s/\r?\n/<br>/gs;
print qq§<TR>\n<TD>$text</TD>\n§;
}...
(ohne Gewähr)
Viele Grüße,
Jörg