電線の画像

Pointgets.net

写真やサンプルプログラムなど、日々の気になった出来事をメモしてる個人的なブログです。

画像のサムネイル画像をPerlモジュールのImage::ExifToolで生成

PerlモジュールのImage::ExifToolを使用して、画像に埋め込まれたサムネイル画像を出力しました。

Sample Image Photo

サンプル画像です。(OLYMPUS E-PL3+LUMIX G 20/F1.7)

#!/opt/local/bin/perl
 
use strict;
use warnings;
use Image::ExifTool
 
print "Content-type: text/plan; charset=utf-8\n\n";
 
my $image = new Image::ExifTool;
$image -> ImageInfo("sample.jpg");
$image = $image -> GetValue("ThumbnailImage");
 
open(my $thumbnail, ">", "thumbnail.jpg");
binmode $thumbnail;
print $thumbnail $$image;
close($thumbnail);
 
exit;

サンプルコードです。画像を読み込んで、埋め込まれているサムネイル画像を出力します。Image::ExifToolは、Perlの標準モジュールではないのでCPANからインストールしました。

サムネイルの画像

出力結果です。読み込んだ画像に埋め込まれているサムネイル画像を、PerlのImage::ExifToolモジュールで出力しました。

スポンサードリンク
スポンサードリンク