Question

我刚刚发现了一段用于确定图像是否具有透明像素的代码：

my $alpha  = $gd->transparent;
if ($alpha < 0) {
    die("The image you uploaded has no transparent pixels. (alpha = $alpha)");
}

显然，这不起作用。我尝试使用具有透明像素的open icon library图片user-desktop.png。检查返回-1。

我只能猜到为什么使用这个命令。 GD的联机帮助页说：

如果在没有任何参数的情况下调用此方法[transparent]，它将返回透明颜色的当前索引，如果没有，则返回-1。

所以，作为一个侧面问题：透明像素根本没有颜色索引 - 对吧？

然后我找到了帖子Perl GD check if pixel is transparent。但是对于这个解决方案，我必须遍历图像的所有像素（至少在麦芽汁的情况下，当唯一的透明像素是最后一个像素时）。

检查此信息的方法不是很简单吗？也许像$ image_object-＆gt; has_transparent_pixels这样的方法？

注意：我不受GD限制，因此其他Image模块也可以正常工作（但是，我在Windows上 - 它应该在那里工作）。

Answer 1

更新了答案

正如@ikegami所指出的那样（谢谢），GIF有一个指定的透明＆＃34;颜色＆＃34;调色板中的像素，而不是每个像素都有自己的透明度值的alpha /透明度层，通常在0-255之间。

我生成了一个2x2像素的GIF，其中一个透明像素，一个红色，一个绿色和一个蓝色 - 然后运行ImageMagick的identify命令并得到以下信息。我用箭头标记了透明像素部分。

Image: a.gif
  Format: GIF (CompuServe graphics interchange format)
  Mime type: image/gif
  Class: PseudoClass
  Geometry: 4x4+0+0
  Units: Undefined
  Type: PaletteAlpha
  Endianess: Undefined
  Colorspace: sRGB
  Depth: 8/1-bit
  Channel depth:
    red: 1-bit
    green: 1-bit
    blue: 1-bit
    alpha: 1-bit
  Channel statistics:
    Pixels: 16
    Red:
      min: 0 (0)
      max: 255 (1)
      mean: 127.5 (0.5)
      standard deviation: 127.5 (0.5)
      kurtosis: -2
      skewness: 0
    Green:
      min: 0 (0)
      max: 255 (1)
      mean: 127.5 (0.5)
      standard deviation: 127.5 (0.5)
      kurtosis: -2
      skewness: 0
    Blue:
      min: 0 (0)
      max: 255 (1)
      mean: 127.5 (0.5)
      standard deviation: 127.5 (0.5)
      kurtosis: -2
      skewness: 0
    Alpha:
      min: 0 (0)
      max: 255 (1)
      mean: 191.25 (0.75)
      standard deviation: 110.418 (0.433013)
      kurtosis: -0.666667
      skewness: 1.1547
  Image statistics:
    Overall:
      min: 0 (0)
      max: 255 (1)
      mean: 111.562 (0.4375)
      standard deviation: 123.451 (0.484123)
      kurtosis: -1.8275
      skewness: 0.271109
  Alpha: srgba(255,255,255,0)   #FFFFFF00
  Colors: 4
  Histogram:
         4: (  0,  0,255,255) #0000FF blue
         4: (  0,255,  0,255) #00FF00 lime
         4: (255,  0,  0,255) #FF0000 red
         4: (255,255,255,  0) #FFFFFF00 srgba(255,255,255,0)
  Colormap entries: 4
  Colormap:
         0: (255,  0,  0,255) #FF0000 red
         1: (  0,255,  0,255) #00FF00 lime
         2: (  0,  0,255,255) #0000FF blue
         3: (255,255,255,  0) #FFFFFF00 srgba(255,255,255,0)      <---------
  Rendering intent: Perceptual
  Gamma: 0.454545
  Chromaticity:
    red primary: (0.64,0.33)
    green primary: (0.3,0.6)
    blue primary: (0.15,0.06)
    white point: (0.3127,0.329)
  Background color: srgba(255,255,255,0)
  Border color: srgba(223,223,223,1)
  Matte color: grey74
  Transparent color: srgba(255,255,255,0)    <---------------
  Interlace: None
  Intensity: Undefined
  Compose: Over
  Page geometry: 4x4+0+0
  Dispose: Undefined
  Compression: LZW
  Orientation: Undefined
  Properties:
    date:create: 2014-10-11T10:40:09+01:00
    date:modify: 2014-10-11T10:40:08+01:00
    signature: 1c82b4c2e772fb075994516cc5661e9dec35b8142f89c651253d07fc3c4642bb
  Profiles:
    Profile-gif:xmp dataxmp: 1031 bytes
  Artifacts:
    filename: a.gif
    verbose: true
  Tainted: False
  Filesize: 1.11KB
  Number pixels: 16
  Pixels per second: 16PB
  User time: 0.000u
  Elapsed time: 0:01.000
  Version: ImageMagick 6.8.9-7 Q16 x86_64 2014-09-10 http://www.imagemagick.org

所以，IM确实知道GIF透明像素 - 我会挖掘更多，看看它是否可以在Perl中找到合理的 - 现在，你可以在Perl的反引号中运行以下内容。

my $output = `identify -verbose a.gif | grep -i transparent`;   # or maybe with FINDSTR on Windows

作为一种替代方案，跨平台的问题较少，%A转义会告诉您图像是否启用了透明度：

convert a.gif -print "%A" null:
True

convert a.jpg -print "%A" null:
False

或者，以更加Perl-y的方式：

#!/usr/bin/perl
use warnings;
use strict;
use Image::Magick;
my $image = Image::Magick->new();
$image->Read($ARGV[0]);
my $a = $image->Get('%A');
print $a;

perl ./script.pl a.gif
True

perl ./script.pl a.jpg
False

原始答案

我认为你对透明度可能有点困惑。图像要么具有透明度，要么是整个图层，要么不具有透明度。通常，不是单个像素透明或不透明的问题。从一开始，JPEG不支持透明度，GIF和PNG 可以支持透明度，但它们不一定始终透明

因此，假设您有PNG或GIF，则可能会有透明层。如果有，每个像素可以是完全透明的，完全不透明的或介于两者之间。如果您使用ImageMagick，可以在命令行或PHP，Perl和其他绑定中使用它。

从命令行，您可以使用此命令判断图像是否具有透明层：

convert InputImage.png -format "%[opaque]" info:

它将返回true或false。

在Perl中你可以这样做：

#!/usr/bin/perl
use warnings;
use strict;
use Image::Magick;
my $image = Image::Magick->new();
$image->Read($ARGV[0]);
my $a = $image->Get('%[opaque]');
print $a;

然后运行：

perl ./script.pl ImageName.png

如何确定图像是否具有透明像素

1 个答案: