<%perl> my $sth=$dbh->prepare("SELECT islandid,archipelago,islandname FROM islands ORDER BY archipelago,islandname;"); $sth->execute(); % my $row; % while ($row=$sth->fetchrow_hashref) { <% $row->{'archipelago'} |h %> - <% $row->{'islandname'} |h %> % }

<%init> use DBI; our $dbh; our $dbfn; $dbfn= "/home/ijackson/things/ypp-sc-tools.pctb-dict-test/yarrg/OCEAN-Midnight.db"; $dbh=DBI->connect("dbi:SQLite:$dbfn",'','', { AutoCommit=>0, RaiseError=>1, ShowErrorStatement=>1, unicode=>1 }) or die "$dbfn $DBI::errstr ?" unless $dbh;