LINUX.ORG.RU

Perl узнать разрешение картинки


0

0

всем здраствуйте
подскажите как в перле узнать разрешение картинки
например пока использую такой скрипт:
#!/usr/bin/perl
use strict;
use Image::Magick;
my $image = Image::Magick->new;
$image->Read(«адрес к файлу .jpg»);
my ($x,$y)=$image->Get('base-columns','base-rows');

но я так подозреваю функция Read загружает всю картинку в оперативку причём перед этим переводит её из jpg в bmp (ошибаюсь?) и если картинка большая это сильно забивает оперативку.
как узнать разрешение картинки не загружая её в память?
наверно прочитать какието определённые байты файла картинки но какие?

★★★★★

Можно узнать как-нибудь наподобие

#!/usr/bin/perl
use strict;
use Image::Size;

my ($size_x, $size_y) = Image::Size::imgsize("test.jpg");

DJAnto
()
Вы не можете добавлять комментарии в эту тему. Тема перемещена в архив.