使用 Perl 的 Image::Magick 创建带有文本的图像

Question

我正在研究一些关于 HTTP 上下文标头及其用途的午餐学习示例。 我想在事物中添加一些耀斑，用 Perl 的 Image::Magick 创建一个图像。

感谢对这篇原始帖子的评论，我了解到问题是缺少 Content-Length。 如何从图像中获取正确的上下文长度？

PS 我调整了 Content-Type 以使类型大写。

#!/perl/bin/perl.exe

use Image::Magick;

$image = Image::Magick->new;
$image->Set(size=>'100x100');
$image->ReadImage('canvas:white');
$image->Set('pixel[49,49]'=>'red');

$text = 'Works like magick!';
$image->Annotate(font=>'kai.ttf', pointsize=>40, fill=>'green', text=>$text);

print "Content-Type: image/png\n\n";
binmode STDOUT;
$image->Write('png:-');

Answer 1

为什么不 Mojolicious（一个了不起的实时 Web 框架）？

use Mojolicious::Lite;

use Image::Magick;

get '/' => sub {
  my $c = shift;

  ...

  $c->render( data => $image->ImageToBlob( magick => 'png' ), format => 'png' );
};

app->start;

使用perl my_script.pl daemon运行它

并在浏览器中打开 localhost:3000

或修复原始代码：

#!/usr/bin/env perl

use strict;
use warnings;

use Image::Magick;

my $image = Image::Magick->new;
$image->Set( size => '200x200' );
$image->ReadImage( 'canvas:white' );
$image->Set( 'pixel[49,49]' => 'red' );

$image->Annotate(
    font      => 'kai.ttf',
    pointsize => 22,
    fill      => 'green',
    text      => 'Works like magick!',
    gravity   => 'northwest',
);

my $img_size;
my $img_data = $image->ImageToBlob( magick => 'png' );

{
    use bytes;
    $img_size = length $img_data;
}

binmode STDOUT;
print <<EOD;
Content-Type: image/png
Content-Length: $img_size

$img_data
EOD