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

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

总结

以上是内存溢出为你收集整理的perl – 连接到sqlite文件时强制只读全部内容，希望文章能够帮你解决perl – 连接到sqlite文件时强制只读所遇到的程序开发问题。

如果觉得内存溢出网站内容还不错，欢迎将内存溢出网站推荐给程序员好友。