6

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

无法 fdopen STDOUT：参数无效

这只发生在代码在 Apache 下运行时。以前，该代码构建了一个极其复杂的命令，其中包括一个用于输入的 here-document，并使用反引号运行它。这行得通，但速度很慢，而且容易以独特而令人费解的方式中断。我讨厌不得不恢复到旧版本，但我无法破解这个。

4

4 回答 4

1

可能是因为 mod_perl 2 关闭了 STDOUT 吗？我刚刚发现并发布了它：

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

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

乔恩

于 2010-01-20T00:27:39.487 回答
0

警告 Emptor：我不是 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 遇到同样问题的投诉，所以如果有人遇到同样的问题，我怀疑同样的解决方案会起作用。

于 2014-06-19T16:06:10.587 回答
0

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

您可以通过将标准输出重定向到 /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 以这种方式给出的实际评级，但它确实为您提供了一些东西。

于 2011-06-06T05:30:48.453 回答
0

如果您的代码仅在 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/');
于 2011-06-06T07:33:43.787 回答