Loading...

snow web site logo

お問合わせ
About us
Blog

Perlについて
老舗の言語のあれこれ

先月 last month  2021 年 09 月  来月 next month
日 sun月 mon火 tue 水 wed木 thu金 fri土 sat



1 2 3 4
5 6 7 8 9 10 11
12 13 14 15 16 17 18
19 20 2122 23 24 25
26 27 28 29 30

Date:2021-09-21 18:43 Editer:snow

標準モジュールで、画像の縦横サイズを取得する方法

画像の縦、横サイズは、Image::Magick(PerlMagick)で取得していますが、他のモジュールで取得可能です。
GDモジュールなら、Perl標準のモジュール(2021/09時点 Perl5 version24)なので、(但し、昔からあるモジュールのようです)後から手動でインストールする必要のないモジュールです。


use GD;

my $img = newFromJpeg GD::Image("./sample/example.jpg");

my ($width, $height) = $img->getBounds();

print "$width:$width $height:$height ";


※newFromJpegのjpgをpngかgif、gd、xbmに変更して使用することができます。


($width,$height) = $image->getBounds();

このメソッドはそのイメージの幅と高さの2つ要素を持つリストを返します。 取得することはできますが、一度、作成したらイメージの大きさを変更することはできません。…と、Perldoc.jpには書かれていますが、画像のサイズを変更できない、ということはGDモジュール上の話ですので、それは頭の片隅に置いておいてください。

参照1「Perldoc.jp GD

参照2「cpan GD」(英語)


Print Twitter short URL いいね:251

月間アーカイブ
 ▼2021 年

 ▼2022 年

 ▼2023 年

 ▼2024 年

 ▼2025 年

↓
PR このサイトには広告が掲載されています。