Thread Absätze im Perl in Html ausgeben.: Absätze im Perl in Html ausgeben (1 answers)
Opened by Gast at 2004-12-20 13:29

Gast Gast
 2004-12-20 13:29
#50191 #50191
Hallo,
wer kann mir helfen?

Ich habe eine Datenbank mit mysql 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
Code: (dl )
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
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

View full thread Absätze im Perl in Html ausgeben.: Absätze im Perl in Html ausgeben