embperl -使用IPC::Open3调用wkhtmltopdf。STDIN不工作
embperl -使用IPC::Open3调用wkhtmltopdf。STDIN不工作
提问于 2014-05-24 05:06:58
在embperl中，我尝试使用IPC::Open3模块调用wkhtmltopdf。
这与这个问题有关：perl / embperl — IPC::Open3
代码如下：
[-
use warnings;
use strict;
use IPC::Open3;
use POSIX;
use Symbol;
my $cmd = '/usr/local/bin/wkhtmltopdf - -';
my $pdf = '';
my $string = '<!DOCTYPE html>
<html>
<head>
<title>Hello World</title>
</head>
<body>
Hello World!!!
</body>
</html>';
my $fhOUT = gensym();
open($fhOUT, '>', '/dev/null') or die $!;
dup2(fileno($fhOUT), 1) or die $! if fileno($fhOUT) != 1;
local *STDOUT;
open(STDOUT, '>&=', 1) or die $!;
my $pid = open3(*HIS_IN, *HIS_OUT, *HIS_ERR, $cmd) or die "could not run cmd : $cmd : $!\n";
print HIS_IN $string;
close(HIS_IN);
while( <HIS_OUT> ) {
$pdf .= $_;
}
waitpid($pid, 0 ) or die "$!\n";
my $retval = $?;
# print "retval-> $retval<br />\n";
$http_headers_out{'Content-Type'} = "application/pdf";
$http_headers_out{'Content-Disposition'} = "attachment; filename=pdfTest.pdf";
$escmode = 0;
-]
[+ $pdf +]回答 1
Stack Overflow用户
发布于 2014-05-26 08:07:46
STDIN的想法相同，但fd是0而不是1。
open(my $fhIN, '<', '/dev/null') or die $!;
dup2(fileno($fhIN), 0) or die $! if fileno($fhIN) != 0;
local *STDIN; open(STDIN, '<&=', 0) or die $!;
open(my $fhOUT, '>', '/dev/null') or die $!;
dup2(fileno($fhOUT), 1) or die $! if fileno($fhOUT) != 1;
local *STDOUT; open(STDOUT, '>&=', 1) or die $!;
my $pid = open3(
local *HIS_IN,
local *HIS_OUT,
'>&STDERR',
$cmd
);
...假设fd0和fd1是闭合的，就像这里的情况一样。
页面原文内容由Stack Overflow提供。腾讯云小微IT领域专用引擎提供翻译支持
原文链接：
https://stackoverflow.com/questions/23838336
复制相关文章
相似问题
腾讯云开发者
Copyright © 2013 - 2026 Tencent Cloud. All Rights Reserved. 腾讯云 版权所有
深圳市腾讯计算机系统有限公司 ICP备案/许可证号：粤B2-20090059 
粤公网安备44030502008569号
腾讯云计算（北京）有限责任公司 京ICP证150476号 | 京ICP备11018762号