2 
%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.

4

1 回答 1

2

我相信解决方案是暂时重新打开 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

于 2014-06-19T16:09:32.197 回答