1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19
|
use DBI;
my $dbh = DBI->connect("dbi:SQLite:livres.db", "", "",
{ RaiseError => 1, AutoCommit => 1 });
$dbh->do("DROP TABLE IF EXISTS livres");
$dbh->do("CREATE TABLE livres (titre, auteur)");
$dbh->do("INSERT INTO livres (titre, auteur) VALUES ('La Bible', 'Dieu')");
$dbh->do("INSERT INTO livres (titre, auteur) VALUES ('La Bible de Perl', 'Larry Wall')");
$res = $dbh->selectall_arrayref("SELECT * FROM livres");
foreach my $row (@$res) {
my ($titre, $auteur) = @$row;
print "$auteur a écrit $titre\n";
}
$dbh->disconnect(); |