From Code to Community: Sponsoring The Perl and Raku Conference 2025 Learn more

GRICHTER / HTML-Embperl-1.3.6 / eg / x / dbi2.htm 

            

              
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
49
50
51
52
53
54
55
56
57
58
59

              
<html>
<head>
<title>Embperl Examples - DBI access using Loops</title>
</head>
<body background="../images/jazzbkgd.gif">
<h1>Embperl Examples - DBI access using Loops</h1>
<hr><b>NOTE:</b><br>
You must set the database and table to something which exists on your system<br>
Maybe it's necessary to insert a PerlModule DBI into your srm.conf to get this working<br>
<hr>
[-
$DSN   = 'dbi:mysql:test' ;
$table = 'dbixrs1' ;
use DBI ;
# connect to database
 $dbh = DBI->connect($DSN) or die "Cannot connect to '$DSN'" ;
# prepare the sql select
 $sth = $dbh -> prepare ("SELECT * from $table")  or die "Cannot SELECT from '$table'" ;
# excute the query
 $sth -> execute  or die "Cannot execute SELECT from '$table'";
# get the fieldnames for the heading in $head
 $head = $sth -> {NAME} ;
-]
<table border=1>
         
        <tr>
        [$ foreach $h @$head $]
                <th>[+ $h +]</th>
        [$ endforeach $]
        </tr>
        [$ while $dat = $sth -> fetchrow_arrayref $]
                <tr>
                        [$ foreach $v @$dat $]
                                <td>[+ $v +]</td>
                        [$ endforeach $]        
                </tr>
        [$ endwhile $]
</table>
<p><hr>
<small>HTML::Embperl (c) 1997-1998 G.Richter</small>
</body>
</html>