Получение ширины и высоты изображения из PNG без библиотеки

Question

на основе спецификации PNG файлов (Network Graphics Portable), очень first chunk должен быть IHDR (4 байта), содержит ширину, высоту и битовую глубину изображения. Итак, прямо за IHDR находятся 4 байта, представляющие width, а затем следующие 4 байта, представляющие height.

Безопасно ли использовать регулярное выражение /IHDR(.{4})(.{4})/s и конвертировать $1 и $2 в width и height? Если да, то как я могу сделать такое преобразование? Должен ли я использовать unpack("N", $x) или unpack("V", $x) ..?

---

Мой текущий код (не уверен, если это работает для больших изображений):

if ($png =~ m/^\x89PNG\x0D\x0A\x1A\x0A....IHDR(.{4})(.{4})/s) { 
    ($width, $height) = (unpack("N", $1) , unpack("N", $2)); 
} 

Answer 1

Я просто смотрел на спецификацию в формате PNG; перед IHDR есть больше вещей. Так что это должно работать:

open(IN, "<xx.png"); 
binmode(IN); 
read(IN, $header, 24); 
if (substr($header, 12, 4) ne "IHDR") { 
    die "this is not a PNG file"; 
} 
($width, $height)=unpack("NN", substr($header, 16)); 
print "width: $width height: $height\n"; 
close IN;