Schrift
Start · Board · Anwendungen/Programme/Skripte in Perl · Allgemeines zu Perl
[thread]6585[/thread]

Absätze im Perl in Html ausgeben.: Absätze im Perl in Html ausgeben



<< >> 2 Einträge, 1 Seite
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
esskar
 2004-12-20 13:36
#50192 #50192
User since
2003-08-04
7321 Artikel
ModeratorIn

user image
Code: (dl )
1
2
my $text =$data[0];
$text =~ s!\r?\n!<br />\n!g;
<< >> 2 Einträge, 1 Seite



View all threads created 2004-12-20 13:29.