Kawaninon.com

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

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

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

#!/opt/local/bin/perl
 
use strict;
use warnings;
use Image::ExifTool;
 
my $image_exif_tool = new Image::ExifTool;
$image_exif_tool->ImageInfo("sample.jpg");
$image_exif_tool = $image_exif_tool->GetValue("ThumbnailImage");
open(my $thumbnail_image, ">", "thumbnail.jpg");
binmode $thumbnail_image;
print $thumbnail_image $$image_exif_tool;
close($thumbnail_image);
 
exit;

サンプルコードです。読み込んだ画像から、埋め込まれているサムネイル画像を出力しました。

スポンサーリンク

これらを使ってサイトを運用しています

QRコード

QR Code