连接到sqlite文件时强制只读

使用DBD :: SQLite文档中sqlite_open_flags说明的属性:

use DBD::SQLite;
my $dbh = DBI->connect("dbi:SQLite:$dbfile", undef, undef, {
  sqlite_open_flags => DBD::SQLite::OPEN_READONLY,
});

如果您尝试打开不存在的数据库(通常会创建新数据库)或尝试写入现有数据库,则会导致错误.

请注意,您必须明确use DBD::SQLite;地使用常量DBD::SQLite::OPEN_READONLY.

请注意,DBI提供了ReadOnlyhandle属性,但DBD :: SQLite在v1.49_05之前不支持它:

use strict;
use warnings;

use Data::Dump;
use DBI;

my $db = 'foo.db';
unlink $db if -f $db;

my $dbh = DBI->connect("dbi:SQLite:dbname=$db",'','', {
    RaiseError => 1,
    ReadOnly   => 1
});

$dbh->do( q{CREATE TABLE foo(id INTEGER, name TEXT)} );
$dbh->do( q{INSERT INTO foo VALUES(1, 'foo')} );
my $values = $dbh->selectall_arrayref( q{SELECT * FROM foo} );

dd $values;

输出:

[[1, "foo"]]

DBI connect('dbname=foo.db','',...) failed: unable to open database file

DBD::SQLite::db do failed: attempt to write a readonly database

my $dbh = DBI->connect("dbi:SQLite:dbname=$db",'','', {
    RaiseError => 1
});
$dbh->{ReadOnly} = 1;