为什么 perl 执行命令比单独运行命令花费更长的时间？

Question

当我运行命令时

montage -background black -geometry +0+0 -mode Unframe -tile ${num_digits}x1 $filelist gif:- > ~/temp/count.gif

执行需要0.1秒（我用time montage...）。

当我将该命令放入我的 perl cgi 脚本时

print LOG "starting montage\n";
open(GRFX,
    "montage -background black -geometry +0+0 -mode Unframe -tile ${num_digits}x1 $filelist gif:- |"
);
print LOG "finish montage\n";
print <GRFX>;
print LOG "finish output\n";
close(GRFX);

“完成蒙太奇”和“完成输出”之间的时间是6秒！！

如果我从命令行运行 cgi 脚本需要 0.1 秒。但是从 Apache 内部需要 6 秒，即使使用与 Apache 位于同一台计算机上的浏览器访问也是如此（所以不是互联网减慢速度，而且，无论浏览器是否在同一台计算机上，所有其他页面加载速度都很快)。

蒙太奇生成的gif文件大小为1.7k。

任何想法为什么在 Apache 中运行时会如此缓慢？

唯一的头输出是print "Content-type: image/gif\n\n";

Answer 1

您正在使用print <GRFX>; 打印输出，从管道shell 命令读取所有输出行。

LINES 是这里的关键词。大概，字节的尾随序列不会以换行符结束，因此 Perl 正在等待它。最终，它会超时。

您可以将local $/ = 4096 设置为一次读取 4096 字节的块。然后，使用print while <GRFX> 输出。

binmode 同时GRFX 和STDOUT 也是一种很好的形式，这样你就不会被problems like this 所困扰。另请参阅我的 blog post related question。

我很想像这样重写你的代码（未经测试）：

sub output_image {
    my $num_digits = shift;
    my $filelist = shift;

    print LOG "starting montage\n";

    my @cmd = (
        montage => qw(
        -background black
        -geometry +0+0
        -mode Unframe
        -tile),
        "${num_digits}x1",
        split(/ /,$filelist),
        'gif:-'
    );

    open my $GRFX, '-|', @cmd
        or die "Failed to open pipe: $!";

    {
        local $/ = 4096;
        binmode $GRFX;
        binmode STDOUT;
        print while <$GRFX>;
    }

    close $GRFX
        or die "Failed to close pipe: $!";

    print LOG "finish montage\n";
}