Perl 中的 Informix 错误：ISAM：107：ISAM 错误：记录被锁定。在 test_db_connectivity.pl 第 14 行

Question

我正在尝试在我们的生产环境中连接到我们的数据库。我收到 107 ISAM 错误：记录已锁定。我已经检查了各种关于它可能是什么的文章，但没有运气。我与我们的 DBA 仔细检查了数据库详细信息，并且信息正确。

仅供参考 - 我收到的“记录已锁定”错误之前的第一个错误是 SQL: -931: Cannot locate web1_tcp service/tcp service in /etc/services.在 test_db_connectivity.pl 第 13 行。。我与我们的 SA 合作将其输入，并且不再出现。任何人都可以提供有关 ISAM 107 错误的任何指导吗？我的连接字符串错了吗？不应该有锁，因为我什至没有打开与数据库的连接。

test_db_connectivity.pl：

#/usr/bin/perl -w

use DBI;
use strict;
use DBI qw(:sql_types);
use DBD::Informix qw(:ix_types);

    my $driver = "Informix";
    my $database = "web1";
    my $dsn = "DBI:$driver:dbname=$database";
    my $userid = "user";
    my $password = "password";
    print "I got this far!\n";
    my $dbh = DBI->connect($dsn, $userid, $password, {RaiseError => 1}) or      die $DBI::errstr;
    print "Opened db successfully\n";
    $dbh->disconnect();

部分变量设置：

export INFORMIXDIR=/opt/informix

export   LD_LIBRARY_PATH=$LD_LIBRARY_PATH:$INFORMIXDIR/lib:$INFORMIXDIR/lib/cli:$INFORMIXDIR/lib/esql:$INFORMIXDIR/lib/tools

export INFORMIXSERVER=web1

INFORMIX SQLHOSTS 文件：

#dbservername 网络类型主机名服务名选项

web1 onsoctcp 10.199.***.* web1dev1_tcp

等/服务文件：

web1dev1_tcp 1533/tcp # 分配给数据库的端口

virtual-places 1533/tcp #Virtual Places 软件

web1dev1_tcp 1533/udp # 分配给数据库的端口

Answer 1

在 Linux 上，出现系统错误 107：

107 (ENOTCONN): Transport endpoint is not connected

很难将其与 C-ISAM 错误 107 区分开来（编号相同）。但是，在上下文中，我认为 ENOTCONN 更可能是问题而不是

ISAM ERROR 107: record is locked.

我观察到您在 $dsn 中使用 DBD::Informix 不测试的符号：

my $dsn = "DBI:$driver:dbname=$database";

其中的dbname= 部分不正确。你应该使用：

my $dsn = "DBI:$driver:$database";

请注意，DBI 规范（当我上次查看时）说驱动程序名称后面的内容是特定于驱动程序的。您可以提交增强请求。

但是，在我的工作系统上，当我使用 dbname=stores 表示法时，我得到的错误是：

DBI connect('dbname=stores', '',...) failed: SQL: -354: Incorrect database or cursor name format. at dbname-dsn.pl line 8.

那是完全不同的。你说你得到了：

SQL: -931: 在 /etc/services 中找不到 web1_tcp 服务/tcp 服务。在 test_db_connectivity.pl 第 13 行

错误信息非常明确。您需要在/etc/services 中输入一个条目，例如：

web1_tcp    9088/tcp

目前，您没有这样的条目，因此甚至没有尝试连接，更不用说成功了。