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< Antwort \n\n§; } } else { print "Leider brachte die Suche kein Ergebnis"; } $DBH->disconnect(); #sript ende

Hallo mysql Datenbank aud localhost.

Sript insert.pl in cgi/bin

Willkommen

Inhalt:

HERE_TEXT my @data; while (@data =$STH->fetchrow_array()){ my $text =$data[0]; print qq§

$text