IPC::Open3 在 Apache 下运行失败

Question

我有一个模块，它使用 IPC::Open3 （或 IPC::Open2，两者都存在此问题）来调用外部二进制文件（在本例中为 bogofilter）并通过子输入文件句柄向其提供一些输入，然后从子输出句柄。该代码在大多数环境中运行时都可以正常工作。然而，该模块的主要用途是在 Apache 2.2.6 下运行的 Web 服务中。在该环境下，我收到错误：

Cannot fdopen STDOUT: Invalid argument

这仅当代码在 Apache 下运行时才会发生。以前，代码构造了一个非常复杂的命令，其中包括用于输入的此处文档，并使用反引号运行它。这确实有效，但速度非常慢，而且容易以独特且令人困惑的方式崩溃。我不想恢复到旧版本，但我无法破解这个。

Answer 1

难道是因为 mod_perl 2 关闭了 STDOUT？我刚刚发现了这一点并发布了相关信息：

http://marc.info/?l=apache-modperl&m=126296015910250&w=2

我认为这是一个令人讨厌的错误，但到目前为止似乎没有人关心它。如果您的问题相关并且您希望它引起注意，请在 mod_perl 列表上发布后续内容。

乔恩

Answer 2

Bogofilter 针对垃圾邮件/非垃圾邮件返回不同的退出代码。

您可以通过将 stdout 重定向到 /dev/null 来“修复”此问题。

system("bogofilter < $input > /dev/null") >> 8;

垃圾邮件将返回 0，非垃圾邮件将返回 1，未知邮件将返回 2（>> 8 是因为 perl 有助于更正退出代码，这可以修复损坏）。

注意：缺少环境也可能会阻止 bogofilter 找到其单词列表，因此也将其显式传递：（

system("bogofilter -d /path/to/.bogofilter/ < $input > /dev/null") >> 8;

其中 /path/to/.bogofilter 包含 wordlist.db）

您无法检索 bogofilter 给出的实际评级那样，但它确实会给你带来一些东西。

Answer 3

如果你的代码只在 Linux/Unix 系统上运行，那么很容易编写一个不会失败的 open3 替代品，因为 STDOUT 不是真正的文件句柄：

sub my_open3 {
    # untested!
    pipe my($inr), my($inw) or die;
    pipe my($outr), my($outw) or die;
    pipe my($errr), my($errw) or die;
    my $pid = fork;
    unless ($pid) {
        defined $pid or die;
        POSIX::dup2($inr, 0);
        POSIX::dup2($outw, 1);
        POSIX::dup2($errw, 2);
        exec @_;
        POSIX::_exit(1);
    }
    return ($inw, $outr, $errr);
}

my ($in, $out, $err) = my_open3('ls /etc/');

Answer 4

买者自负：我不是 Perl 向导。

正如 @JonathanSwartz 所建议的，我认为问题是 apache2 mod_perl 关闭了 STDIN 和 STDOUT。这不应该与 IPC::Open3 正在做的事情相关，但它有一个错误， 此处描述。

总之（这是我不太清楚的部分），open3 尝试将子进程 STDIN/OUT/ERR 与您的进程匹配，或者如果这是所要求的，则复制它。由于 open('>&=X') 工作的一些未记录的方式，它通常工作得很好，除了 STDIN/OUT/ERR 关闭的情况。

另一个链接深入了解详细信息。

一种解决方案是修复 IPC::Open3，如这两个链接中所述。另一个对我有用的方法是在 mod_perl 代码中暂时打开 STDIN/OUT，然后关闭它：

my ($save_stdin,$save_stdout);
open $save_stdin, '>&STDIN';
open $save_stdout, '>&STDOUT';
open STDIN, '>&=0';
open STDOUT, '>&=1';

#make your normal IPC::Open3::open3 call here

close(STDIN);
close(STDOUT);
open STDIN, '>&', $save_stdin;
open STDOUT, '>&', $save_stdout;

另外，我注意到网上有很多关于 IPC::Run3 遇到同样问题的抱怨，所以如果有人遇到同样的问题，我怀疑同样的解决方案会起作用。