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

Question

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

这里是一个png文件的例子

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

Answer 1

使用 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";