Question

%use IPC::Run3;
%my $a;
%run3 ['echo','hello'],\undef,\$a;
<% $a %>

当我使用独立脚本中的mason时，Mason代码上的代码非常有用，如HTML::Mason::Admin中所述。很遗憾，在使用perl_mode投放时，$a是空字符串。以下是我的httpd.conf

 Alias /mason_book /home/charlse/f/books/mason_book
 <Location /mason_book>
    SetHandler perl-script
    AddHandler perl-script .mas
    PerlHandler HTML::Mason::ApacheHandler
    PerlAddVar  MasonCompRoot  "mason_book => /home/charles/f/books/mason_book"
 </Location>
 <Directory "/home/chunywan/f/books/mason_book">
    Options Indexes FollowSymLinks
    AllowOverride None
    Order allow,deny
    Allow from all
 </Directory>

顺便说一句

 %use IPC::Run qw(run timeout);
 %my @cmd=qw(echo hello world);
 %my ($in,$out,$err);
 %run(\@cmd, \$in, \$out, \$err) or die "cat: $?";
 <pre>
   out <% $out %>
 </pre>

我只是尝试IPC::Run，它在独立模式和mod_perl模式下都能很好地运行。我似乎必须更新所有源代码才能使用IPC::Run代替IPC::Run3。

Answer 1

我认为解决方案是暂时重新打开STDIN / STDOUT，然后在命令完成后关闭它。

use IPC::Run3;
my $a;

#save off existing stdin/out
my ($save_stdin,$save_stdout);
open $save_stdin, '>&STDIN';
open $save_stdout, '>&STDOUT';

#open it again as the "normal things"
open STDIN, '>&=0';
open STDOUT, '>&=1';
run3 ['echo','hello'],\undef,\$a;

#clean up after yourself
close(STDIN);
close(STDOUT);
open STDIN, '>&', $save_stdin;
open STDOUT, '>&', $save_stdout;

我遇到了与IPC :: Open3相同的问题并在此处解决了它：https://stackoverflow.com/a/24311232/312208

为什么IPC :: Run3无法在Apache环境中捕获任何标准输出？

1 个答案: