Embperl Examples - DBI access using Loops
NOTE:
You must set the database and table to something which exists on your system
Maybe it's necessary to insert a PerlModule DBI into your srm.conf to get this working
[-
$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} ;
-]
[$ foreach $h @$head $]
[+ $h +] |
[$ endforeach $]
[$ while $dat = $sth -> fetchrow_arrayref $]
[$ foreach $v @$dat $]
[+ $v +] |
[$ endforeach $]
[$ endwhile $]
HTML::Embperl (c) 1997-1998 G.Richter