コピーライトの情報を追加した画像をPerlモジュールのImage::ExifToolで生成
PerlモジュールのImage::ExifToolを使用して、コピーライトの情報をExifに追加した画像を出力しました。
#!/opt/local/bin/perl
use strict;
use warnings;
use Image::ExifTool;
my $image_exif_tool = new Image::ExifTool;
$image_exif_tool->SetNewValue(Copyright =>"Copyright (c) 2016 example.com");
$image_exif_tool->WriteInfo("sample.jpg");
exit;サンプルコードです。読み込んだ画像のExifにコピーライトの情報を追加して出力しました。
