在许多前端,
我希望使用与主服务器镜像的sqlite3文件的只读连接来强制执行我的脚本.
我希望使用与主服务器镜像的sqlite3文件的只读连接来强制执行我的脚本.
有没有办法说DBI这样做？
目前,我这样做：
$dbHand = DBI->connect("dbi:sqlite:dbname=$dbName",$dbUser,$dbPass,{
PrintError => 0,RaiseError => 1,AutoCommit => 1,}) or die $DBI::errstr;
并获得完全访问权限.
>我不是很流利,我必须维持/发展现有的
>(我不想处理文件权限)
解决方法
使用sqlite_open_flags属性,如
DBD::SQLite documentation中所述：
use DBD::sqlite; my $dbh = DBI->connect("dbi:sqlite:$dbfile",undef,{ sqlite_open_flags => DBD::sqlite::OPEN_READONLY,});
如果您尝试打开不存在的数据库(通常会创建新数据库)或尝试写入现有数据库,则会导致错误.
请注意,您必须显式使用DBD :: sqlite;为了使用常量DBD :: sqlite :: OPEN_READONLY.
请注意,DBI提供了ReadOnly句柄属性,但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"]]
切换到sqlite_open_flags => DBD :: sqlite :: OPEN_READONLY会导致错误.
如果数据库不存在：
DBI connect('dbname=foo.db',...) Failed: unable to open database file
如果数据库存在：
DBD::sqlite::db do Failed: attempt to write a readonly database
从DBD :: sqlite v1.49_05开始,您还可以使用ReadOnly属性,但仅作为连接选项.连接后设置属性不起作用并抛出警告：
my $dbh = DBI->connect("dbi:sqlite:dbname=$db",{
RaiseError => 1
});
$dbh->{ReadOnly} = 1;
输出：
DBD::sqlite::db STORE warning: ReadOnly is set but it’s only advisory