DBD::Oracle 导致系统调用损坏？

发布于 2024-07-27 04:42:07 字数 660 浏览 7 评论 0原文

看到一些奇怪的行为，连接到Oracle数据库，然后调用外部函数，$？的值？始终为 -1。
问题机器运行标准 AIX5.3，带有 DBD::Oracle 1.20 和 DBI 1.602。

#!/usr/bin/perl -w
use DBI;

CORE::system "pwd";
print "Before connect: $?\n";
DBI->connect('dbi:Oracle:', 'pwd', 'pwd');
print "Before system: $?\n";
CORE::system "pwd";
print "After system: $?\n";
CORE::system "pwd";
print "After system: $?\n";

Before connect: 0
Before system: 0
/usr/local/bin
After system: -1
/usr/local/bin
After system: -1

这是来自不同 AIX 5.3 机器的结果，我能看到的唯一区别是它运行的是 DBD：Oracle 1.22 和 DBI 1.607。然而，查看这些模块的更改日志，我看不到任何与之相关的内容。除了升级 DBD:Oracle 和 DBI 之外，我还可以尝试任何进一步的想法（犹豫是否立即这样做，因为这是一台生产机器）。

原文

Seeing some strange behavior, whereby connecting to Oracle database, and then calling external function, the value of $? is always -1.
Problem machine is running standard AIX5.3, with DBD::Oracle 1.20 and DBI 1.602.

#!/usr/bin/perl -w
use DBI;

CORE::system "pwd";
print "Before connect: $?\n";
DBI->connect('dbi:Oracle:', 'pwd', 'pwd');
print "Before system: $?\n";
CORE::system "pwd";
print "After system: $?\n";
CORE::system "pwd";
print "After system: $?\n";

Before connect: 0
Before system: 0
/usr/local/bin
After system: -1
/usr/local/bin
After system: -1

This is the results from a different AIX 5.3 machine, the only difference I can see is that it is running DBD:Oracle 1.22 and DBI 1.607. However looking at the change logs for those modules, I can't see anything that could relate to that.
Any ideas for further things I can try other than upgrading DBD:Oracle and DBI (hesitent to do that straight away as this is a production machine).

分享到QQ

分享到微博

如果你对这篇内容有疑问，欢迎到本站社区发帖提问参与讨论，获取更多帮助，或者扫码二维码加入 Web 技术交流群。

发布评论

需要登录才能够评论，你可以免费注册一个本站的账号。

恏ㄋ傷疤忘ㄋ疼 2024-08-03 04:42:07

来自perldoc -f system：

返回值 -1 表示启动程序失败或 wait(2) 系统调用错误（检查 $! 查找原因）。< /p>

看起来系统调用无法再 exec pwd 程序。尝试将您的系统调用更改为：

my $rc = system "pwd";
if ($rc == -1) {
    die "system call failed: $!";
} elsif ($rc & 0b0000_0000_0111_1111) {
    die "system call died due to signal ", $rc & 0b0000_0000_0111_1111;
} elsif ($rc & 0b1111_1111_0000_0000) {
    warn "system call returned non-zero exit code: ", $rc >> 8;
}

from perldoc -f system:

Return value of -1 indicates a failure to start the program or an error of the wait(2) system call (inspect $! for the reason).

It looks like the system call is not able to exec the pwd program anymore. Try changing your system calls to:

my $rc = system "pwd";
if ($rc == -1) {
    die "system call failed: $!";
} elsif ($rc & 0b0000_0000_0111_1111) {
    die "system call died due to signal ", $rc & 0b0000_0000_0111_1111;
} elsif ($rc & 0b1111_1111_0000_0000) {
    warn "system call returned non-zero exit code: ", $rc >> 8;
}

回复收藏 0 原文