2015-05-25T09:40:28 jan99

Jetzt möchte ich gerne die jeweiligen Aufnahmezeitpunkt in die EXIF-Daten schreiben.

1
2
3
4
5
6
7
8
9
10
11
12
13
14

use strict;
use warnings;
use feature  'say';

use Image::ExifTool qw(:Public);

my $exifTool = new Image::ExifTool;
my $tag = 'CreateDate';
say "Description of tag $tag:  ", $exifTool->GetDescription($tag);

# return meta information for 1 tag only (procedural)
my $file = 'CIMG0052.JPG';
my $info = ImageInfo($file, $tag);
say "tag->info:  $tag => $$info{$tag}";   # 2013:08:19 11:04:35

Quote

# Vorsicht: 'ThumbnailImage' => ref to Image !!!
# Tag IDs / names:
# 0x0112 Orientation
# 0x011a XResolution
# 0x011b YResolution
# 0x0132 ModifyDate
# 0x9003 DateTimeOriginal
# 0x9004 CreateDate
# 0xa002 ExifImageWidth
# 0xa003 ExifImageHeight
# 0xbc04 ImageType
# 0xbc80 ImageWidth
# 0xbc81 ImageHeight
# 0xbc82 WidthResolution
# 0xbc83 HeightResolution