perl – 连接到sqlite文件时强制只读

发布时间：2020-12-15 23:21:03 所属栏目：大数据来源：网络整理

导读：在许多前端, 我希望使用与主服务器镜像的sqlite3文件的只读连接来强制执行我的脚本. 有没有办法说DBI这样做？目前,我这样做： $dbHand = DBI-connect("dbi:SQLite:dbname=$dbName",$dbUser,$dbPass,{ PrintError = 0,RaiseError = 1,AutoCommit = 1,}) or d

在许多前端,
我希望使用与主服务器镜像的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

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!