##INHALT
print "<br />";
print " Hier klicken um den Inhalt der DB anzuzeigen --> <INPUT TYPE=SUBMIT NAME=Inhalt VALUE=\"Inhalt der DB\">\n";

######SELECT#####
sub sel {
my $dbh = DBI->connect("dbi:Pg:dbname=raum;host=127.0.0.1;port=5432", "perl_db", "test",{ RaiseError => 0, AutoCommit => 0}) or croak $DBI::errstr;
my $cmd = 'SELECT id, name FROM t_personen ORDER BY id ASC'; my $sth = $dbh->prepare_cached($cmd)
   or croak "SQL prepare failed '$cmd': " . $dbh->errstr;

my $rc = $sth->execute
    || die "Anweisung kann nicht ausgeführt werden: $DBI::errstr";

print "Query gibt $sth->{NUM_OF_FIELDS} Felder zurück.\n\n"; print "$sth->{NAME}->[0]: $sth->{NAME}->[1]\n"; while 
((my $id,my $name) = $sth->fetchrow_array) {
    print "$id: $name\n";
}
# Auf Probleme untersuchen, die die Fetch-Operation schon früh beendet haben können
warn $DBI::errstr if $DBI::err;
$sth->finish;

$dbh->commit() or die "Failed to save modified data: " . $dbh->errstr;

#### einfügen
print "Eine Tabelle hinzufuegen";
# Das Eingabeformular festlegen
print "<FORM METHOD=GET ACTION=$thisaction>\n";
print "Tabellenname eingeben: <INPUT TYPE=TEXT NAME=\"Textzeile\">\n";
print "<INPUT TYPE=SUBMIT VALUE=\"abschicken\">\n";
print "</FORM>\n";

# falls etwas abgeschickt wurde, auswerten
$eingabe=$ENV{"QUERY_STRING"}; if ( $eingabe ) {
  ($eingabevar,$eingabezeile)=split(/=/,$eingabe);
   $eingabezeile=~ tr/+/ /; # Leerzeichen umwandeln
    # Hexcodes-Sonderzeichen umwandeln
   $eingabezeile=~ s/%([0-9A-F]{2})/pack(C,hex($1))/ieg;
  print "Ihre Eingabezeile lautet: $eingabezeile\n";
} 
print "</HTML>test</BODY>\n";