Hallo in die Runde,
ich hab ein kleines, kniffliges Problem mit Perl auf AS/400 (OS400 V4R5M0).
Die CGI Anbindung als solche funktioniert.
Aber: Beim Abrufen von Tabellen einer Datenbank werden nur die Inhalte von Numerischen Feldern ausgegeben.
Konkret heisst es, die Abrufschleife wird gemäß der Anzahl Datensätze durchlaufen. Aber ausgegeben werden nur die Numerischen Felder DB2.
Hat irgendjemand hier im Forum eine Idee wie die anderen Felder zu behandeln sind?
--- Quellcodesnip ---
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
#!/usr/bin/perl -w
# use CGI qw(param);
use DBI;
use DBD::DB2::Constants;
use DBD::DB2;
use CGI qw/:standard/;
# Test der DB Anbindung mit Perl auf AS/400
$dbh = DBI->connect("DBI:DB2:*LOCAL") or die "Ein Fehler: ".$dbh->err;
$sql = "select NAME, VNAME from LIBTEST.TESTSTAMM";
$sth = $dbh->prepare($sql) or die "Fehler: ".$sth->err;
$sth->execute() or die "Fehler bei Ausf}hrung: "-$sth->err;
print <<ENDE_HEAD;
Content-type: text/html
<html>
<head><title>Datenbanktest</title></head>
<body>
<table border='1'>
<tr><th>Name</th> <th>Vorname</th></tr>
ENDE_HEAD
while(@data = $sth->fetchrow_array)
{
print "<tr><td>".$data[0]."</td>\n";
print "<td>".$data[1]."</td></tr>\n";
}
print "</table>\n";
print "</body>\n";
print "</html>";
Last edited: 2016-05-24 12:19:29 +0200 (CEST)
Jemand zu Hause?![[twitter]](/battie/theme/default/icons/twitter.gif){kind=icon}
+3 replies![[default_avatar]](/battie/theme/default/default_avatar.gif){kind=avatar}
![[Homepage]](/battie/theme/default/homepage.gif)
Wie frage ich & perlintro 
Schrift
Blog
Einstellungen![[feed]](/battie/theme/default/icons/feed.png){kind=icon}
Tags:
![[Powered by Battie]](/battie/img/powered.png)
