よしいずの雑記帳 JPEGファイルの破損をチェックするPerlスクリプトJPEG ファイルの破損を簡易的にチェックする Perl スクリプトの例。 概要 通常の JPEG ファイルは、最初に SOI マーカー (0xFF 0xD8) が置かれ、最後に EOI マーカー (0xFF 0xD9) が置かれます。さらに、それらの間がいくつかのセグメントに区分され、各々の先頭にマーカーが置かれます。画像データは、SOS マーカー (0xFF 0xDA) の直後に配置されます。 破損したファイルの多くは、SOI マーカーか EOI マーカーが欠損しています。また、SOS マーカーから EOI マーカーまでの間に欠損があると、ビューアで画像の一部が欠けて表示されます。 そこで、JPEG ファイルの SOI マーカーと EOI マーカーの有無をチェックすることで、ファイルが破損しているかどうかを判定します。 サンプルプログラム use strict; use warning
