電線の画像

Pointgets.net

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

画像のコピーライトをPerlモジュールのImage::ExifToolで生成

PerlモジュールのImage::ExifToolを使用して、読み込んだ画像のExifにコピーライトを追加して出力しました。

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 -> SetNewValue(Copyright => "http://pointgets.net");
$image -> WriteInfo("sample.jpg");
 
my $image2 = new Image::ExifTool();
$image2 = $image2 -> ImageInfo("sample.jpg");
for(sort keys %$image2) {
	print $_." : ".$image2 -> {$_}."\n";
}
 
exit;

サンプルコードです。読み込んだ画像のExifにCopyrightの情報を追加して画像を出力します。Image::ExifToolは、Perlの標準モジュールではないのでCPANからインストールしました。

BitsPerSample : 8
ColorComponents : 3
Copyright : http://pointgets.net
Directory : .
EncodingProcess : Baseline DCT, Huffman coding
ExifByteOrder : Big-endian (Motorola, MM)
ExifToolVersion : 10.20
FileAccessDate : 2016:10:16 17:21:10+09:00
FileInodeChangeDate : 2016:10:16 17:21:10+09:00
FileModifyDate : 2016:10:16 17:21:10+09:00
FileName : sample.jpg
FilePermissions : rw-r--r--
FileSize : 46 kB
FileType : JPEG
FileTypeExtension : jpg
ImageHeight : 400
ImageSize : 600x400
ImageWidth : 600
JFIFVersion : 1.01
MIMEType : image/jpeg
Megapixels : 0.240
ResolutionUnit : inches
XResolution : 314
YCbCrPositioning : Centered
YCbCrSubSampling : YCbCr4:2:2 (2 1)
YResolution : 314

出力結果です。コピーライトの情報を追加した画像からExifを出力しました。

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