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;