perl - 如何在 perl 中检索 png 文件的高度和宽度属性

Question

我有一个 png 文件的链接，我想检索宽度和高度等图像属性。我以前从来没有这样做过。我看过GD，但找不到任何解决问题的方法。

这是一个 png 文件的示例

http://www.kegg.jp/kegg/pathway/map/map00010.png

Answer 1

use Image::Size;

 my $image_URL="http://www.kegg.jp/kegg/pathway/map/map00010.png";
 my $pngfile="data.pang";
 getstore($image_URL,"$pngfile");         
 my($globe_x, $globe_y) = imgsize("$pngfile");
 print "x is $globe_x, y is $globe_y"; 

结果是

x is 716, y is 1020

Answer 2

Image::Info这是使用该模块的另一个示例：

use LWP::Simple qw(get);
use Image::Info qw(image_info dim);
my $image_URL = "http://www.kegg.jp/kegg/pathway/map/map00010.png";
my $image_data = get($image_URL);
my($x, $y) = dim(image_info(\$image_data));
print "x is $x, y is $y\n"; 

Answer 3

使用 Image::PNG::Libpng 库，您可以：

 use LWP::Simple;
 my $image_data = get 'http://www.kegg.jp/kegg/pathway/map/map00010.png';
 my $png = create_read_struct();
 $png->read_from_scalar ($image_data);
 my $IHDR = $png->get_IHDR();
 print "Image size " . $IHDR{'width'} . " x " . $IHDR{'height'} . "\n";