标签: dbd

升级到OSX Mavericks后,我无法运行DBI/DBD.

Perl和MySQL运行正常(我可以登录到mysql并访问我的表),但我的Perl脚本不再使用DBI,因为更新程序删除了我以前工作的所有Perl模块.

我使用CPAN重新安装了DBI和DBD :: mysql,它们将它们安装到/opt/local/lib/perl5/site_perl/5.12.4/darwin-multi-2level/.将模块(DBI,DBD和"auto"中的所有内容)复制到/Library/Perl/5.16/darwin-multi-2level/(因为cpan使用的目录不在@INC中)后,我的脚本返回内部服务器错误(甚至使用FatalsToBrowser).

Apache错误日志说:

dyld: lazy symbol binding failed: Symbol not found: _Perl_Istack_sp_ptr
Referenced from: /opt/local/lib/perl5/site_perl/5.12.4/darwin-multi-2level/auto/DBI/DBI.bundle
Expected in: flat namespace

dyld: Symbol not found: _Perl_Istack_sp_ptr
Referenced from: /opt/local/lib/perl5/site_perl/5.12.4/darwin-multi-2level/auto/DBI/DBI.bundle
Expected in: flat namespace
Premature end of script headers: test.pl

这有什么问题？也许是因为我复制了文件？也许我应该强制CPAN直接安装到/Library/Perl/5.16/？我如何告诉CPAN这样做？

有任何想法吗？

当使用Perl DBD :: SQLite时,SQLite是否存在已知问题,在单个事务中为第二个查询提供"数据库已锁定"错误？场景:Linux,Perl DBI,AutoCommit => 0,一个带有两个代码块的子例程(使用块来本地化变量名).在第一个代码块中,一个查询句柄由select()在select语句中创建,它被执行()并且块被关闭.第二个代码块是通过准备更新语句创建的另一个查询句柄,并且经常(30%的时间)SQLite/DBI在此阶段给出数据库锁定错误.我认为错误发生在prepare()期间而不是在execute()期间.

我的工作是在第一次查询后提交.(在第一个查询上调用完成没有帮助).我不喜欢有几个与优雅和表现有关的理由.Postgres作为数据库,原始代码已经运行了很多年.我试过sqlite_use_immediate_transaction没有效果.

在所有其他情况下,我发现SQLite表现得非常好,所以我怀疑这是DBD驱动程序中的疏忽,而不是SQLite的问题.遗憾的是,我目前的代码是一大堆脚本和模块,所以我没有一个简短的单个文件测试用例.

有人有这个成功吗？网上没有大量的参考资料,我已经用尽了谷歌上的所有相关结果.这是我的脚本:

#!/usr/bin/perl

use DBI;
use DBD::ODBC;

$user = "user";
$pw = "pw";
$ip = "192.168.1.0"

#DBI->trace(DBD::ODBC->parse_trace_flags('odbconnection'));

#my $connect_attrs = { PrintError => 0, RaiseError => 1, AutoCommit => 1 };

my $dbh = DBI->connect("dbi:ODBC:$ip", $user, $pw);

错误消息:

DBI connect('192.168.1.0','user',...) failed: (no error string) at ./teradata.pl line 13

注释掉的两行是我之前无法尝试连接数据库的遗留问题.

更新:以前是我使用DBD模块所做的努力.

#!/usr/bin/perl

use DBI;

$user = "xxxx";
$pw = "xxxx";

my $dbh = DBI->connect("dbi:Teradata:tdsn", $user, $pw);

错误:

DBI connect('tdsn','xxxx',...) failed: Unable to get host address. at ./teradata.pl line 12

第二次尝试:

#!/usr/bin/perl …

我在SQL SELECT语句返回的行上有一个循环,并且在对行的数据进行一些处理之后,我有时想要更新行的值.循环体中的处理非常重要,我无法在SQL中编写它.当我尝试为所选行执行UPDATE时,我得到一个错误(在Perl的DBD :: SQLite :: st执行失败:数据库表被锁定).是否有可读,高效且便携的方式来实现我想要做的事情？如果不这样做,是否有DBD或SQLite特定的方法呢？

显然,我可以在单独的数据结构中推送更新并在循环之后执行它们,但是我讨厌代码看起来那样.

如果您有兴趣,这里是相应的Perl代码.

my $q = $dbh->prepare(q{
  SELECT id, confLoc FROM Confs WHERE confLocId ISNULL});
$q->execute or die;
my $u = $dbh->prepare(q{
  UPDATE Confs SET confLocId = ? WHERE id = ?});
while (my $r = $q->fetchrow_hashref) {
    next unless ($r->{confLoc} =~ m/something-hairy/);
    next unless ($locId = unique_name_state($1, $2));
    $u->execute($locId, $r->{id}) or die;
}

强文本

通过自制软件更新perl之后，我通过cpanm安装了dbd :: mysql安装程序，结果是

记录错误：我将使用以下设置进行编译和测试：

cflags        (mysql_config) = -I/usr/local/Cellar/mysql-connector-
c/6.1.9/include
embedded      (guessed     ) =
ldflags       (guessed     ) =
libs          (mysql_config) = -L/usr/local/Cellar/mysql-connector-
c/6.1.9/lib -l
mysql_config  (guessed     ) = mysql_config
nocatchstderr (default     ) = 0
nofoundrows   (default     ) = 0
nossl         (default     ) = 0
testdb        (default     ) = test
testhost      (default     ) =
testpassword  (default     ) =
testport      (default     ) =
testsocket    (default     ) =
testuser      (guessed     ) = root

强文本

要更改这些设置，请参见“ perl Makefile.PL --help”和“ perldoc DBD :: mysql :: …