March 01, 2004
The SQLite Database Engine
Listing 8: SQLite from Perl.
use DBI;
my $dbh = DBI->connect("dbi:SQLite:dbname=db","","");
my $cursor;
my @rec;
my $SQL = "select projectname_full as name, rating "
. "from project order by rating desc";
$cursor = $dbh->prepare($SQL);
$cursor->execute();
while(@rec = $cursor->fetchrow_array)
{
print "$rec[0], $rec[1]\n";
}
$cursor->finish;
$dbh->disconnect;
|
 |
|
|||||||||||||||||||||||||||
|
|
|
