如何使用 Perl 和 GD 创建透明的真彩色 PNG？答案

【问题标题】：How do you create a transparent truecolor PNG with Perl & GD?如何使用 Perl 和 GD 创建透明的真彩色 PNG？
【发布时间】：2010-03-24 17:16:48
【问题描述】：

这似乎是一个微不足道的问题，但我没有尝试过使背景透明。

use strict;
use warnings;
use GD

GD::Image->trueColor(1);
my $im = new GD::Image(100, 100);

my $clear = $im->colorAllocateAlpha(255, 255, 255, 127);
my $black = $im->colorAllocateAlpha(0, 0, 0, 0);

$im->alphaBlending(0);
$im->filledRectangle(0, 0, 100, 100, $clear);

$im->alphaBlending(1);
$im->stringFT($black, "a-ttf-font.ttf", 12, 0, 20, 20, "x");

binmode STDOUT;
print $im->png;

感谢您的指导。

【问题讨论】：

-1 您必须使用strict 和warnings。您发布的代码必须是您运行的代码。你有$image、$im 和$img。什么弗拉克？
这是我运行的一些代码。固定。
我是否正确理解您希望文本显示为灰色？哦，我忘记投票了。
我正在寻找一个具有完全透明背景和抗锯齿黑色文本的 PNG。不过，透明背景是我的主要目标。

标签： perl png transparency gd

【解决方案1】：

你在使用$im->saveAlpha(1)吗？否则，alpha 信息仅在构建图像时有用。保存的图片不会是透明的。

一种快速而肮脏的方法可能不足以满足您的目的，即忘记 Alpha 通道并使用 GD::Image::transparent 方法。

【讨论】：

谢谢，就是这个！不敢相信我没有发现。