使用perl cgi在网页上显示命令输出

Question

下面是代码，请给我任何显示命令输出结果的建议。

#!/usr/bin/perl
use strict; 
use warnings;
print "content-type:text/html\r\n\r\n";
print <<EOF;
<html>
<head><title>command</title></head>
<body>
EOF
my $d=qx(perl -cw 1.cgi);
print <<EOF;
<p>$d</p>
</body>
</html>
EOF

Answer 1

qx 将 return 变量中的 STDOUT 但您试图将 Perl 编译结果存储到您的变量中，在 Linux 中它被称为 STDERR 不是 STDOUT 所以我们需要做如下

my $d=qx(perl -cw 1.cgi 2>&1);

更多关于2>&1

使用perl cgi在网页上显示命令输出

displaying command output on webpage using perl cgi

linux

perl

cgi