↑Ｂ

ツイート
2021.10.19

PerlのGD::Image->new()は画像じゃないデータを読み込ませるとエラーになることがあるので事前に手動で画像であることを確認した方が良い

my $ua = LWP::UserAgent->new;
my $req = HTTP::Request->new("GET",'http://xxxxx/xxx.jpg');
my $Image=$ua->request($req)->content;
if (ord(substr($Image,0,1))==255 && ord(substr($Image,1,1))==216){
  my $GDImage = GD::Image->new($Image);
  if ($GDImage == undef){エラー処理}

基本はGD:Image->new(xxx)した時に失敗すると作った画像オブジェクトがundefineになって失敗したことが分かってスクリプトも落ちないんだけど、gzip圧縮された何かとか、テキストとか読み込ませた時も、何かのきっかけでエラーでスクリプト止まっちゃうことがある。

解決法としては、JPEGファイルの最初はFF(255)D8(216)で始まるらしいので、それを利用して画像っぽくない時はGD:Imageに進ませないようにしたらエラー出なくなった。

参考：

• [Perl] 画像の形式を判別する (PNG/JPEG/BMP/GIF)|Archive|Nanoniele|MakiokaFufudo

Category:Perl・Javascript・python、サーバー管理メモ

Follow @fetuin

コメント

いいっすね！=1

名前 ↑Ｂ

ツイート
コメント(※改行は省略されます）

※３回以上の連続書き込み不可

この記事のアクセス数:


→カテゴリー：Perl・Javascript・python、サーバー管理メモ(記事数:83)
アクセス数の多い記事(過去1ヶ月)

すべて見る