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