| 12
 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(); | 
Partager