exiftool_vendored 13.10.0 → 13.14.0

data/bin/exiftool

@@ -11,7 +11,7 @@ use strict;
 use warnings;
 require 5.004;
 
-my $version = '13.10';
+my $version = '13.14';
 
 # add our 'lib' directory to the include list BEFORE 'use Image::ExifTool'
 my $exePath;
@@ -641,7 +641,7 @@ for (;;) {
         }
         # require MWG module if used in any argument
         # (note: doesn't cover the -p option because these tags will be parsed on the 2nd pass)
-        $useMWG = 1 if not $useMWG and grep /^mwg:/i, @tags, @requestTags;
+        $useMWG = 1 if not $useMWG and grep /^([--_0-9A-Z]+:)*1?mwg:/i, @tags, @requestTags;
         if ($useMWG) {
             require Image::ExifTool::MWG;
             Image::ExifTool::MWG::Load();
@@ -1093,7 +1093,7 @@ for (;;) {
         # prevent processing file unnecessarily for simple case of failed '$ok' or 'not $ok'
         $cond =~ /^\s*(not\s*)\$ok\s*$/i and ($1 xor $rtnValPrev) and $failCondition=1;
         # add to list of requested tags
-        push @requestTags, $cond =~ /\$\{?((?:[-\w]+:)*[-\w?*]+)/g;
+        push @requestTags, $cond =~ /\$\{?((?:[-_0-9A-Z]+:)*[-_0-9A-Z?*]+)/ig;
         push @condition, $cond;
         next;
     }
@@ -1181,7 +1181,7 @@ for (;;) {
         if ($pass) {
             LoadPrintFormat($fmt, $1 || $binaryOutput);
             # load MWG module now if necessary
-            if (not $useMWG and grep /^mwg:/i, @requestTags) {
+            if (not $useMWG and grep /^([-_0-9A-Z]+:)*1?mwg:/i, @requestTags) {
                 $useMWG = 1;
                 require Image::ExifTool::MWG;
                 Image::ExifTool::MWG::Load();
@@ -1380,11 +1380,11 @@ for (;;) {
             push @newValues, { SaveCount => ++$saveCount };
         }
         push @newValues, $_;
-        if (/^mwg:/i) {
+        if (/^([-_0-9A-Z]+:)*1?mwg:/i) {
             $useMWG = 1;
-        } elsif (/^([-\w]+:)*(filename|directory|testname)\b/i) {
+        } elsif (/^([-_0-9A-Z]+:)*(filename|directory|testname)\b/i) {
             $doSetFileName = 1;
-        } elsif (/^([-\w]+:)*(geotag|geotime|geosync|geolocate)\b/i) {
+        } elsif (/^([-_0-9A-Z]+:)*(geotag|geotime|geosync|geolocate)\b/i) {
             if (lc $2 eq 'geotime') {
                 $addGeotime = '';
             } else {
@@ -1402,25 +1402,23 @@ for (;;) {
         if ($setTagsFile) {
             push @{$setTags{$setTagsFile}}, $_;
             if ($1 eq '>') {
-                $useMWG = 1 if /^(.*>\s*)?mwg:/si;
+                $useMWG = 1 if /^(.*>\s*)?([-_0-9A-Z]+:)*1?mwg:/si;
                 if (/\b(filename|directory|testname)#?$/i) {
                     $doSetFileName = 1;
                 } elsif (/\bgeotime#?$/i) {
                     $addGeotime = '';
                 }
             } else {
-                $useMWG = 1 if /^([^<]+<\s*(.*\$\{?)?)?mwg:/si;
-                if (/^([-\w]+:)*(filename|directory|testname)\b/i) {
+                $useMWG = 1 if /^([^<]+<\s*(.*\$\{?)?)?([-_0-9A-Z]+:)*1?mwg:/si;
+                if (/^([-_0-9A-Z]+:)*(filename|directory|testname)\b/i) {
                     $doSetFileName = 1;
-                } elsif (/^([-\w]+:)*geotime\b/i) {
+                } elsif (/^([-_0-9A-Z]+:)*geotime\b/i) {
                     $addGeotime = '';
                 }
             }
         } else {
             my $lst = s/^-// ? \@exclude : \@tags;
-            unless (/^([-\w*]+:)*([-\w*?]+)#?$/) {
-                Warn(qq(Invalid TAG name: "$_"\n));
-            }
+            Warn(qq(Invalid TAG name: "$_"\n)) unless /^([-_0-9A-Z*]+:)*([-_0-9A-Z*?]+)#?$/i;
             push @$lst, $_; # (push everything for backward compatibility)
         }
     }
@@ -1763,9 +1761,11 @@ if (@newValues) {
         $wrn and Warning($mt, $wrn);
     }
     # exclude specified tags
-    foreach (@exclude) {
-        $mt->SetNewValue($_, undef, Replace => 2);
-        $needSave = 1;
+    unless ($csv) {
+        foreach (@exclude) {
+            $mt->SetNewValue($_, undef, Replace => 2);
+            $needSave = 1;
+        }
     }
     unless ($isWriting or $outOpt or @tags) {
         Warn "Nothing to do.\n";
@@ -2296,6 +2296,10 @@ sub GetImageInfo($$)
                 $et->Options(Duplicates => 1, Sort => "Group$showGroup", Verbose => 0);
                 $et2 = Image::ExifTool->new;
                 $et2->Options(%{$$et{OPTIONS}});
+                # must set list options specifically because they may have been
+                # set incorrectly from deprecated List settings
+                $et2->Options(ListSep => $$et{OPTIONS}{ListSep});
+                $et2->Options(ListSplit => $$et{OPTIONS}{ListSplit});
                 @found2 = @foundTags;
                 $info2 = $et2->ImageInfo($file2, \@found2);
             } else {
@@ -2352,14 +2356,15 @@ sub GetImageInfo($$)
 
     # print differences if requested
     if (defined $diff) {
-        my (%done2, $wasDiff, @diffs, @groupTags2);
+        my (%done, %done2, $wasDiff, @diffs, @groupTags2);
         my $v = $verbose || 0;
         print $fp "======== diff < $file > $file2\n";
         my ($g2, $same) = (0, 0); # start with $g2 false, but not equal to '' to avoid infinite loop
         for (;;) {
+            my ($g, $tag2, $i, $key, @dupl, $val2, $t2, $equal, %used);
             my $tag = shift @foundTags;
-            my ($g, $tag2);
             if (defined $tag) {
+                $done{$tag} = 1;
                 $g = $et->GetGroup($tag, $showGroup);
             } else {
                 for (;;) {
@@ -2369,7 +2374,6 @@ sub GetImageInfo($$)
                 }
             }
             if ($g ne $g2) {
-                my $t2;
                 # add any outstanding tags from diff file not yet handled in previous group ($g2)
                 foreach $t2 (@groupTags2) {
                     next if $done2{$t2};
@@ -2408,33 +2412,50 @@ sub GetImageInfo($$)
             my $val = $et->GetValue($tag);
             next unless defined $val;  # (just in case)
             my $name = GetTagName($tag);
-            # get matching tag key from diff file
+            my $desc = $outFormat < 1 ? $et->GetDescription($tag) : $name;
+            # get matching tag key(s) from diff file
             my @tags2 = grep /^$name( |$)/, @groupTags2;
-            $name = $et->GetDescription($tag) if $outFormat < 1;
-            my ($val2, $t2);
-            foreach $t2 (@tags2) {
+T2:         foreach $t2 (@tags2) {
                 next if $done2{$t2};
                 $tag2 = $t2;
                 $val2 = $et2->GetValue($t2);
+                next unless defined $val2;
+                IsEqual($val, $val2) and $equal = 1, last;
+                # look ahead for upcoming duplicate tags in this group to see
+                # if any would later match this value (and skip those for now)
+                if ($$et{DUPL_TAG}{$name} and not @dupl) {
+                    for ($i=0, $key=$name; $i<=$$et{DUPL_TAG}{$name}; ++$i, $key="$name ($i)") {
+                        push @dupl, $key unless $done{$key} or $g ne $et->GetGroup($key, $showGroup);
+                    }
+                    @dupl = sort { $$et{FILE_ORDER}{$a} <=> $$et{FILE_ORDER}{$b} } @dupl if @dupl > 1;
+                }
+                foreach (@dupl) {
+                    next if $used{$_};
+                    my $v = $et->GetValue($_);
+                    next unless defined($v) and IsEqual($v, $val2);
+                    $used{$_} = 1;  # would match this upcoming tag
+                    undef($tag2); undef($val2);
+                    next T2;
+                }
                 last;
             }
-            if (defined $val2 and IsEqual($val, $val2)) {
+            if ($equal) {
                 ++$same;
             } else {
-                my $len = LengthUTF8($name);
+                my $len = LengthUTF8($desc);
                 my $pad = $outFormat < 2 ? ' ' x ($len < 32 ? 32 - $len : 0) : '';
                 if ($allGroup) {
                     my $grp = "[$g]";
                     $grp .= ' ' x (15 - length($grp)) if length($grp) < 15 and $outFormat < 2;
-                    push @diffs, sprintf "< %s %s%s: %s\n", $grp, $name, $pad, Printable($val);
+                    push @diffs, sprintf "< %s %s%s: %s\n", $grp, $desc, $pad, Printable($val);
                     if (defined $val2) {
-                        $grp = ' ' x length($grp), $name = ' ' x $len if $v < 3;
-                        push @diffs, sprintf "> %s %s%s: %s\n", $grp, $name, $pad, Printable($val2);
+                        $grp = ' ' x length($grp), $desc = ' ' x $len if $v < 3;
+                        push @diffs, sprintf "> %s %s%s: %s\n", $grp, $desc, $pad, Printable($val2);
                     }
                 } else {
-                    push @diffs, sprintf "< %s%s: %s\n", $name, $pad, Printable($val);
-                    $name = ' ' x $len if $v < 3;
-                    push @diffs, sprintf "> %s%s  %s\n", $name, $pad, Printable($val2) if defined $val2;
+                    push @diffs, sprintf "< %s%s: %s\n", $desc, $pad, Printable($val);
+                    $desc = ' ' x $len if $v < 3;
+                    push @diffs, sprintf "> %s%s: %s\n", $desc, $pad, Printable($val2) if defined $val2;
                 }
             }
             $done2{$tag2} = 1 if defined $tag2;
@@ -3147,7 +3168,7 @@ sub SetImageInfo($$$)
                 next;
             } elsif (ref $dyFile eq 'SCALAR') {
                 # set new values from CSV or JSON database
-                my ($f, $found, $tag);
+                my ($f, $found, $csvTag, $tryTag, $tg);
                 undef $evalWarning;
                 local $SIG{'__WARN__'} = sub { $evalWarning = $_[0] };
                 # force UTF-8 if the database was JSON
@@ -3169,11 +3190,39 @@ sub SetImageInfo($$$)
                         print $vout 'Including tags: ',join(' ',@tags),"\n" if @tags;
                         print $vout 'Excluding tags: ',join(' ',@exclude),"\n" if @exclude;
                     }
-                    foreach $tag (OrderedKeys($csvInfo)) {
-                        next if $tag =~ /\b(SourceFile|Directory|FileName)$/i; # don't write these
-                        next if @tags and not grep /^\Q$tag\E$/i, @tags;
-                        next if @exclude and grep /^\Q$tag\E$/i, @exclude;
-                        my ($rtn, $wrn) = $et->SetNewValue($tag, $$csvInfo{$tag},
+                    my @tryTags = (@exclude, @tags); # (exclude first because it takes priority)
+                    foreach (@tryTags) {
+                        tr/-0-9a-zA-Z_:#?*//dc;     # remove illegal characters
+                        s/(^|:)(all:)+/$1/ig;       # remove 'all' group names
+                        s/(^|:)all(#?)$/$1*$2/i;    # convert 'all' tag name to '*'
+                        tr/?/./;  s/\*/.*/g;        # convert wildcards for regex
+                    }
+                    foreach $csvTag (OrderedKeys($csvInfo)) {
+                        # don't write SourceFile, Directory or FileName
+                        next if $csvTag =~ /^([-_0-9A-Z]+:)*(SourceFile|Directory|FileName)$/i;
+                        if (@tryTags) {
+                            my ($i, $tryGrp, $matched);
+TryMatch:                   for ($i=0; $i<@tryTags; ++$i) {
+                                $tryTag = $tryTags[$i];
+                                if ($tryTag =~ /:/) {
+                                    next unless $csvTag =~ /:/;     # db entry must also specify group
+                                    my @csvGrps = split /:/, $csvTag;
+                                    my @tryGrps = split /:/, $tryTag;
+                                    my $tryName = pop @tryGrps;
+                                    next unless pop(@csvGrps) =~ /^$tryName$/i; # tag name must match
+                                    foreach $tryGrp (@tryGrps) {
+                                        # each specified group name must match db entry
+                                        next TryMatch unless grep /^$tryGrp$/i, @csvGrps;
+                                    }
+                                    $matched = 1;
+                                    last;
+                                }
+                                # no group specified, so match by tag name only
+                                $csvTag =~ /^([-_0-9A-Z]+:)*$tryTag$/i and $matched = 1, last;
+                            }
+                            next if $matched ? $i < @exclude : @tags;
+                        }
+                        my ($rtn, $wrn) = $et->SetNewValue($csvTag, $$csvInfo{$csvTag},
                                           Protected => 1, AddValue => $csvAdd,
                                           ProtectSaved => $csvSaveCount);
                         $wrn and Warn "$wrn\n" if $verbose;
@@ -4363,7 +4412,7 @@ sub AddPrintFormat($)
     $printFmt{$type} or $printFmt{$type} = [ ];
     push @{$printFmt{$type}}, $expr;
     # add to list of requested tags
-    push @requestTags, $expr =~ /\$\{?((?:[-\w]+:)*[-\w?*]+)/g;
+    push @requestTags, $expr =~ /\$\{?((?:[-_0-9A-Z]+:)*[-_0-9A-Z?*]+)/ig;
     $printFmt{SetTags} = 1 if $expr =~ /\bSetTags\b/;
 }
 
@@ -4718,7 +4767,7 @@ sub FilterArgfileLine($)
         $arg =~ s/^\s+//;           # remove leading white space
         $arg =~ s/[\x0d\x0a]+$//s;  # remove trailing newline
         # remove white space before, and single space after '=', '+=', '-=' or '<='
-        $arg =~ s/^(-[-:\w]+#?)\s*([-+<]?=) ?/$1$2/;
+        $arg =~ s/^(-[-_0-9A-Z:]+#?)\s*([-+<]?=) ?/$1$2/i;
         return undef if $arg eq '';
     }
     return $arg;
@@ -5598,9 +5647,13 @@ deleted).  Also, FileName and Directory columns are ignored if they exist
 all other columns are imported.  To force a tag to be deleted, use the B<-f>
 option and set the value to "-" in the CSV file (or to the MissingTagValue
 if this API option was used).  Multiple databases may be imported in a
-single command.  Specific tags may be imported from the database by adding
-B<->I<TAG> options to the command, or excluded with B<-->I<TAG> options.
-If no tags are specified, then all except FileName and Directory are used.
+single command.
+
+Specific tags may be imported from the CSV database by adding B<->I<TAG>
+options to the command, or excluded with B<-->I<TAG>, with exclusions taking
+priority.  Group names and wildcards are allowed.  If no tags are specified,
+then all except FileName and Directory are used.  Tags are imported in the
+same order as the database entries.
 
 When exporting a CSV file, the B<-g> or B<-G> option adds group names to the
 tag headings.  If the B<-a> option is used to allow duplicate tag names, the
@@ -5783,9 +5836,13 @@ that options exporting JSON objects instead of simple values are not
 compatible with the import file format (ie. export with B<-D>, B<-H>, B<-l>,
 or B<-T> is not compatible, and use B<-G> instead of B<-g>).  Additionally,
 tag names in the input JSON file may be suffixed with a C<#> to disable
-print conversion.  Specific tags may be imported from the database by adding
-B<->I<TAG> options to the command, or excluded with B<-->I<TAG> options.
-If no tags are specified, then all except FileName and Directory are used.
+print conversion.
+
+Specific tags may be imported from the JSON database by adding B<->I<TAG>
+options to the command, or excluded with B<-->I<TAG>, with exclusions taking
+priority.  Group names and wildcards are allowed.  If no tags are specified,
+then all except FileName and Directory are used.  Tags are imported in the
+same order as the database entries.
 
 Unlike CSV import, empty values are not ignored, and will cause an empty
 value to be written if supported by the specific metadata type.  Tags are
@@ -5926,7 +5983,7 @@ with this command:
 
 produces output like this:
 
-    -- Generated by ExifTool 13.10 --
+    -- Generated by ExifTool 13.14 --
     File: a.jpg - 2003:10:31 15:44:19
     (f/5.6, 1/60s, ISO 100)
     File: b.jpg - 2006:05:23 11:57:38
@@ -5943,8 +6000,8 @@ name, a value of 1 is returned if any tag exists in the specified group, or
 values of all matching tags are joined).
 
 The B<-p> output iterates through the family 3 group names, with each
-sub-document producing additional output.  This feature is most useful when
-used in combination with the B<-ee> option to extract embedded documents.
+sub-document producing additional output when combined with the B<-ee>
+(ExtractEmbedded) option.
 
 If a specified tag does not exist, a minor warning is issued and the line
 with the missing tag is not printed.  However, the B<-f> option may be used
@@ -6778,9 +6835,10 @@ System tags:
 The B<-g> and B<-G> options may be used to organize the output by the
 specified family of groups, with B<-G1> being the default.  The B<-a> option
 is implied.  Adding B<-v> includes a count of the number of tags that are
-the same in each group.  The following text formatting options are valid
-when B<-diff> is used: B<-c>, B<-charset>, B<-d>, B<-E>, B<-ec>, B<-ex>,
-B<-L>, B<-lang>, B<-n>, B<-s>, B<-sep>, B<-struct> and B<-w>.
+the same in each group, and B<-v2> also indicates when zero tags were the
+same.  The following text formatting options are valid when B<-diff> is
+used: B<-c>, B<-charset>, B<-d>, B<-E>, B<-ec>, B<-ex>, B<-L>, B<-lang>,
+B<-n>, B<-s>, B<-sep>, B<-struct> and B<-w>.
 
 =item B<-geotag> I<TRKFILE>
 
@@ -7281,13 +7339,13 @@ avoid processing hidden files (provided Win32API::File is available):
 B<Note>: Beware when cutting and pasting these examples into your terminal!
 Some characters such as single and double quotes and hyphens may have been
 changed into similar-looking yet functionally-different characters by the
-text formatter used to display this documentation.  Also note that Windows
-users must use double quotes instead of single quotes as below around
-arguments containing special characters.
+text formatter used to display this documentation.  Also note that in the
+Windows cmd shell double quotes must be used instead of the single quotes
+used in the examples.
 
 =over 5
 
-=item exiftool -a -u -g1 a.jpg
+=item C<exiftool -a -u -g1 a.jpg>
 
 Print all meta information in an image, including duplicate and unknown
 tags, sorted by group (for family 1).  For performance reasons, this command
@@ -7296,89 +7354,89 @@ metadata extracted by external utilities, and metadata requiring excessive
 processing time may not be extracted).  Add C<-ee3> and C<-api RequestAll=3>
 to the command to extract absolutely everything available.
 
-=item exiftool -common dir
+=item C<exiftool -common dir>
 
 Print common meta information for all images in C<dir>.  C<-common> is a
 L<shortcut tag|Image::ExifTool::Shortcuts> representing common EXIF meta
 information.
 
-=item exiftool -T -createdate -aperture -shutterspeed -iso dir > out.txt
+=item C<exiftool -T -createdate -aperture -shutterspeed -iso dir E<gt> out.txt>
 
 List specified meta information in tab-delimited column form for all images
 in C<dir> to an output text file named "out.txt".
 
-=item exiftool -s -ImageSize -ExposureTime b.jpg
+=item C<exiftool -s -ImageSize -ExposureTime b.jpg>
 
 Print ImageSize and ExposureTime tag names and values.
 
-=item exiftool -l -canon c.jpg d.jpg
+=item C<exiftool -l -canon c.jpg d.jpg>
 
 Print standard Canon information from two image files.
 
-=item exiftool -r -w .txt -common pictures
+=item C<exiftool -r -w .txt -common pictures>
 
 Recursively extract common meta information from files in C<pictures>
 directory, writing text output to C<.txt> files with the same names.
 
-=item exiftool -b -ThumbnailImage image.jpg > thumbnail.jpg
+=item C<exiftool -b -ThumbnailImage image.jpg E<gt> thumbnail.jpg>
 
 Save thumbnail image from C<image.jpg> to a file called C<thumbnail.jpg>.
 
-=item exiftool -b -JpgFromRaw -w _JFR.JPG -ext NEF -r .
+=item C<exiftool -b -JpgFromRaw -w _JFR.JPG -ext NEF -r .>
 
 Recursively extract JPG image from all Nikon NEF files in the current
 directory, adding C<_JFR.JPG> for the name of the output JPG files.
 
-=item exiftool -a -b -W %d%f_%t%-c.%s -preview:all dir
+=item C<exiftool -a -b -W %d%f_%t%-c.%s -preview:all dir>
 
 Extract all types of preview images (ThumbnailImage, PreviewImage,
 JpgFromRaw, etc.) from files in directory "dir", adding the tag name to the
 output preview image file names.
 
-=item exiftool -d '%r %a, %B %e, %Y' -DateTimeOriginal -S -s -ext jpg .
+=item C<exiftool -d '%r %a, %B %e, %Y' -DateTimeOriginal -S -s -ext jpg .>
 
 Print formatted date/time for all JPG files in the current directory.
 
-=item exiftool -IFD1:XResolution -IFD1:YResolution image.jpg
+=item C<exiftool -IFD1:XResolution -IFD1:YResolution image.jpg>
 
 Extract image resolution from EXIF IFD1 information (thumbnail image IFD).
 
-=item exiftool '-*resolution*' image.jpg
+=item C<exiftool '-*resolution*' image.jpg>
 
 Extract all tags with names containing the word "Resolution" from an image.
 
-=item exiftool -xmp:author:all -a image.jpg
+=item C<exiftool -xmp:author:all -a image.jpg>
 
 Extract all author-related XMP information from an image.
 
-=item exiftool -xmp -b a.jpg > out.xmp
+=item C<exiftool -xmp -b a.jpg E<gt> out.xmp>
 
 Extract complete XMP data record intact from C<a.jpg> and write it to
 C<out.xmp> using the special C<XMP> tag (see the Extra tags in
 L<Image::ExifTool::TagNames|Image::ExifTool::TagNames>).
 
-=item exiftool -p '$filename has date $dateTimeOriginal' -q -f dir
+=item C<exiftool -p '$filename has date $dateTimeOriginal' -q -f dir>
 
 Print one line of output containing the file name and DateTimeOriginal for
 each image in directory C<dir>.
 
-=item exiftool -ee3 -p '$gpslatitude, $gpslongitude, $gpstimestamp' a.m2ts
+=item C<exiftool -ee3 -p '$gpslatitude, $gpslongitude, $gpstimestamp' a.m2ts>
 
 Extract all GPS positions from an AVCHD video.
 
-=item exiftool -icc_profile -b -w icc image.jpg
+=item C<exiftool -icc_profile -b -w icc image.jpg>
 
 Save complete ICC_Profile from an image to an output file with the same name
 and an extension of C<.icc>.
 
-=item exiftool -htmldump -w tmp/%f_%e.html t/images
+=item C<exiftool -htmldump -w tmp/%f_%e.html t/images>
 
 Generate HTML pages from a hex dump of EXIF information in all images from
 the C<t/images> directory.  The output HTML files are written to the C<tmp>
 directory (which is created if it didn't exist), with names of the form
 'FILENAME_EXT.html'.
 
-=item exiftool -a -b -ee -embeddedimage -W Image_%.3g3.%s file.pdf
+=item C<exiftool -a -b -ee -embeddedimage -W Image_%.3g3.%s file.pdf>
 
 Extract embedded JPG and JP2 images from a PDF file.  The output images will
 have file names like "Image_#.jpg" or "Image_#.jp2", where "#" is the
@@ -7396,130 +7454,130 @@ be used (eg. -Comment=E<34>This is a new commentE<34>).
 
 =over 5
 
-=item exiftool -Comment='This is a new comment' dst.jpg
+=item C<exiftool -tagsfromfile src.jpg -exif:all --subifd:all dst.jpg>
 
 Write new comment to a JPG image (replaces any existing comment).
 
-=item exiftool -comment= -o newdir -ext jpg .
+=item C<exiftool -comment= -o newdir -ext jpg .>
 
 Remove comment from all JPG images in the current directory, writing the
 modified images to a new directory.
 
-=item exiftool -keywords=EXIF -keywords=editor dst.jpg
+=item C<exiftool -keywords=EXIF -keywords=editor dst.jpg>
 
 Replace existing keyword list with two new keywords (C<EXIF> and C<editor>).
 
-=item exiftool -Keywords+=word -o newfile.jpg src.jpg
+=item C<exiftool -Keywords+=word -o newfile.jpg src.jpg>
 
 Copy a source image to a new file, and add a keyword (C<word>) to the
 current list of keywords.
 
-=item exiftool -exposurecompensation+=-0.5 a.jpg
+=item C<exiftool -exposurecompensation+=-0.5 a.jpg>
 
 Decrement the value of ExposureCompensation by 0.5 EV.  Note that += with a
 negative value is used for decrementing because the -= operator is used for
 conditional deletion (see next example).
 
-=item exiftool -credit-=xxx dir
+=item C<exiftool -credit-=xxx dir>
 
 Delete Credit information from all files in a directory where the Credit
 value was C<xxx>.
 
-=item exiftool -xmp:description-de='k&uuml;hl' -E dst.jpg
+=item C<exiftool -xmp:description-de='k&uuml;hl' -E dst.jpg>
 
 Write alternate language for XMP:Description, using HTML character escaping
 to input special characters.
 
-=item exiftool -all= dst.jpg
+=item C<exiftool -all= dst.jpg>
 
 Delete all meta information from an image.  Note: You should NOT do this to
 RAW images (except DNG) since proprietary RAW image formats often contain
 information in the makernotes that is necessary for converting the image.
 
-=item exiftool -all= -comment='lonely' dst.jpg
+=item C<exiftool -all= -comment='lonely' dst.jpg>
 
 Delete all meta information from an image and add a comment back in.  (Note
 that the order is important: C<-comment='lonely' -all=> would also delete
 the new comment.)
 
-=item exiftool -all= --jfif:all dst.jpg
+=item C<exiftool -all= --jfif:all dst.jpg>
 
 Delete all meta information except JFIF group from an image.
 
-=item exiftool -Photoshop:All= dst.jpg
+=item C<exiftool -Photoshop:All= dst.jpg>
 
 Delete Photoshop meta information from an image (note that the Photoshop
 information also includes IPTC).
 
-=item exiftool -r -XMP-crss:all= DIR
+=item C<exiftool -r -XMP-crss:all= DIR>
 
 Recursively delete all XMP-crss information from images in a directory.
 
-=item exiftool '-ThumbnailImageE<lt>=thumb.jpg' dst.jpg
+=item C<exiftool '-ThumbnailImageE<lt>=thumb.jpg' dst.jpg>
 
 Set the thumbnail image from specified file (Note: The quotes are necessary
 to prevent shell redirection).
 
-=item exiftool '-JpgFromRawE<lt>=%d%f_JFR.JPG' -ext NEF -r .
+=item C<exiftool '-JpgFromRawE<lt>=%d%f_JFR.JPG' -ext NEF -r .>
 
 Recursively write JPEG images with filenames ending in C<_JFR.JPG> to the
 JpgFromRaw tag of like-named files with extension C<.NEF> in the current
 directory.  (This is the inverse of the C<-JpgFromRaw> command of the
 L</READING EXAMPLES> section above.)
 
-=item exiftool -DateTimeOriginal-='0:0:0 1:30:0' dir
+=item C<exiftool -DateTimeOriginal-='0:0:0 1:30:0' dir>
 
 Adjust original date/time of all images in directory C<dir> by subtracting
 one hour and 30 minutes.  (This is equivalent to C<-DateTimeOriginal-=1.5>.
 See L<Image::ExifTool::Shift.pl|Image::ExifTool::Shift.pl> for details.)
 
-=item exiftool -createdate+=3 -modifydate+=3 a.jpg b.jpg
+=item C<exiftool -createdate+=3 -modifydate+=3 a.jpg b.jpg>
 
 Add 3 hours to the CreateDate and ModifyDate timestamps of two images.
 
-=item exiftool -AllDates+=1:30 -if '$make eq E<34>CanonE<34>' dir
+=item C<exiftool -AllDates+=1:30 -if '$make eq E<34>CanonE<34>' dir>
 
 Shift the values of DateTimeOriginal, CreateDate and ModifyDate forward by 1
 hour and 30 minutes for all Canon images in a directory.  (The AllDates tag
 is provided as a shortcut for these three tags, allowing them to be accessed
 via a single tag.)
 
-=item exiftool -xmp:city=Kingston image1.jpg image2.nef
+=item C<exiftool -xmp:city=Kingston image1.jpg image2.nef>
 
 Write a tag to the XMP group of two images.  (Without the C<xmp:> this tag
 would get written to the IPTC group since C<City> exists in both, and IPTC
 is preferred by default.)
 
-=item exiftool -LightSource-='Unknown (0)' dst.tiff
+=item C<exiftool -LightSource-='Unknown (0)' dst.tiff>
 
 Delete C<LightSource> tag only if it is unknown with a value of 0.
 
-=item exiftool -whitebalance-=auto -WhiteBalance=tung dst.jpg
+=item C<exiftool -whitebalance-=auto -WhiteBalance=tung dst.jpg>
 
 Set C<WhiteBalance> to C<Tungsten> only if it was previously C<Auto>.
 
-=item exiftool -comment-= -comment='new comment' a.jpg
+=item C<exiftool -comment-= -comment='new comment' a.jpg>
 
 Write a new comment only if the image doesn't have one already.
 
-=item exiftool -o %d%f.xmp dir
+=item C<exiftool -o %d%f.xmp dir>
 
 Create XMP meta information data files for all images in C<dir>.
 
-=item exiftool -o test.xmp -owner=Phil -title='XMP File'
+=item C<exiftool -o test.xmp -owner=Phil -title='XMP File'>
 
 Create an XMP data file only from tags defined on the command line.
 
-=item exiftool '-ICC_Profile<=%d%f.icc' image.jpg
+=item C<exiftool '-ICC_Profile<=%d%f.icc' image.jpg>
 
 Write ICC_Profile to an image from a C<.icc> file of the same name.
 
-=item exiftool -hierarchicalkeywords='{keyword=one,children={keyword=B}}'
+=item C<exiftool -hierarchicalkeywords='{keyword=one,children={keyword=B}}'>
 
 Write structured XMP information.  See L<https://exiftool.org/struct.html>
 for more details.
 
-=item exiftool -trailer:all= image.jpg
+=item C<exiftool -trailer:all= image.jpg>
 
 Delete any trailer found after the end of image (EOI) in a JPEG file.  A
 number of digital cameras store a large PreviewImage after the JPEG EOI, and
@@ -7535,22 +7593,22 @@ These examples demonstrate the ability to copy tag values between files.
 
 =over 5
 
-=item exiftool -tagsFromFile src.cr2 dst.jpg
+=item C<exiftool -tagsFromFile src.cr2 dst.jpg>
 
 Copy the values of all writable tags from C<src.cr2> to C<dst.jpg>, writing
 the information to same-named tags in the preferred groups.
 
-=item exiftool -TagsFromFile src.jpg -all:all dst.jpg
+=item C<exiftool -TagsFromFile src.jpg -all:all dst.jpg>
 
 Copy the values of all writable tags from C<src.jpg> to C<dst.jpg>,
 preserving the original tag groups.
 
-=item exiftool -all= -tagsfromfile src.jpg -exif:all dst.jpg
+=item C<exiftool -all= -tagsfromfile src.jpg -exif:all dst.jpg>
 
 Erase all meta information from C<dst.jpg> image, then copy EXIF tags from
 C<src.jpg>.
 
-=item exiftool -exif:all= -tagsfromfile @ -all:all -unsafe bad.jpg
+=item C<exiftool -exif:all= -tagsfromfile @ -all:all -unsafe bad.jpg>
 
 Rebuild all EXIF meta information from scratch in an image.  This technique
 can be used in JPEG images to repair corrupted EXIF information which
@@ -7559,7 +7617,7 @@ shortcut for unsafe EXIF tags in JPEG images which are not normally copied.
 See the L<tag name documentation|Image::ExifTool::TagNames> for more details
 about unsafe tags.
 
-=item exiftool -Tagsfromfile a.jpg out.xmp
+=item C<exiftool -Tagsfromfile a.jpg out.xmp>
 
 Copy meta information from C<a.jpg> to an XMP data file.  If the XMP data
 file C<out.xmp> already exists, it will be updated with the new information. 
@@ -7568,46 +7626,46 @@ be created like this (files containing images may be edited but not
 created).  See L</WRITING EXAMPLES> above for another technique to generate
 XMP files.
 
-=item exiftool -tagsFromFile a.jpg -XMP:All= -ThumbnailImage= -m b.jpg
+=item C<exiftool -tagsFromFile a.jpg -XMP:All= -ThumbnailImage= -m b.jpg>
 
 Copy all meta information from C<a.jpg> to C<b.jpg>, deleting all XMP
 information and the thumbnail image from the destination.
 
-=item exiftool -TagsFromFile src.jpg -title -author=Phil dst.jpg
+=item C<exiftool -TagsFromFile src.jpg -title -author=Phil dst.jpg>
 
 Copy title from one image to another and set a new author name.
 
-=item exiftool -TagsFromFile a.jpg -ISO -TagsFromFile b.jpg -comment
-dst.jpg
+=item C<exiftool -TagsFromFile a.jpg -ISO -TagsFromFile b.jpg -comment
+dst.jpg>
 
 Copy ISO from one image and Comment from another image to a destination
 image.
 
-=item exiftool -tagsfromfile src.jpg -exif:all --subifd:all dst.jpg
+=item C<exiftool -tagsfromfile src.jpg -exif:all --subifd:all dst.jpg>
 
 Copy only the EXIF information from one image to another, excluding SubIFD
 tags.
 
-=item exiftool '-FileModifyDateE<lt>DateTimeOriginal' dir
+=item C<exiftool '-FileModifyDateE<lt>DateTimeOriginal' dir>
 
 Use the original date from the meta information to set the same file's
 filesystem modification date for all images in a directory.  (Note that
 C<-TagsFromFile @> is assumed if no other B<-TagsFromFile> is specified when
 redirecting information as in this example.)
 
-=item exiftool -TagsFromFile src.jpg '-xmp:allE<lt>all' dst.jpg
+=item C<exiftool -TagsFromFile src.jpg '-xmp:allE<lt>all' dst.jpg>
 
 Copy all possible information from C<src.jpg> and write in XMP format to
 C<dst.jpg>.
 
-=item exiftool '-Description<${FileName;s/\.[^.]*$//}' dir
+=item C<exiftool '-Description<${FileName;s/\.[^.]*$//}' dir>
 
 Set the image Description from the file name after removing the extension. 
 This example uses the L</Advanced formatting feature> to perform a
 substitution operation to remove the last dot and subsequent characters from
 the file name.
 
-=item exiftool -@ iptc2xmp.args -iptc:all= a.jpg
+=item C<exiftool -@ iptc2xmp.args -iptc:all= a.jpg>
 
 Translate IPTC information to XMP with appropriate tag name conversions, and
 delete the original IPTC information from an image.  This example uses
@@ -7617,40 +7675,40 @@ Also included with the distribution are xmp2iptc.args (which performs the
 inverse conversion) and a few more .args files for other conversions between
 EXIF, IPTC and XMP.
 
-=item exiftool -tagsfromfile %d%f.CR2 -r -ext JPG dir
+=item C<exiftool -tagsfromfile %d%f.CR2 -r -ext JPG dir>
 
 Recursively rewrite all C<JPG> images in C<dir> with information copied from
 the corresponding C<CR2> images in the same directories.
 
-=item exiftool '-keywords+E<lt>make' image.jpg
+=item C<exiftool '-keywords+E<lt>make' image.jpg>
 
 Add camera make to list of keywords.
 
-=item exiftool '-commentE<lt>ISO=$exif:iso Exposure=${shutterspeed}' dir
+=item C<exiftool '-commentE<lt>ISO=$exif:iso Exposure=${shutterspeed}' dir>
 
 Set the Comment tag of all images in C<dir> from the values of the EXIF:ISO
 and ShutterSpeed tags.  The resulting comment will be in the form "ISO=100
 Exposure=1/60".
 
-=item exiftool -TagsFromFile src.jpg -icc_profile dst.jpg
+=item C<exiftool -TagsFromFile src.jpg -icc_profile dst.jpg>
 
 Copy ICC_Profile from one image to another.
 
-=item exiftool -TagsFromFile src.jpg -all:all dst.mie
+=item C<exiftool -TagsFromFile src.jpg -all:all dst.mie>
 
 Copy all meta information in its original form from a JPEG image to a MIE
 file.  The MIE file will be created if it doesn't exist.  This technique can
 be used to store the metadata of an image so it can be inserted back into
 the image (with the inverse command) later in a workflow.
 
-=item exiftool -o dst.mie -all:all src.jpg
+=item C<exiftool -o dst.mie -all:all src.jpg>
 
 This command performs exactly the same task as the command above, except
 that the B<-o> option will not write to an output file that already exists.
 
-=item exiftool -b -jpgfromraw -w %d%f_%ue.jpg -execute -b -previewimage -w
+=item C<exiftool -b -jpgfromraw -w %d%f_%ue.jpg -execute -b -previewimage -w
 %d%f_%ue.jpg -execute -tagsfromfile @ -srcfile %d%f_%ue.jpg
--overwrite_original -common_args --ext jpg DIR
+-overwrite_original -common_args --ext jpg DIR>
 
 [Advanced] Extract JpgFromRaw or PreviewImage from all but JPG files in DIR,
 saving them with file names like C<image_EXT.jpg>, then add all meta
@@ -7683,34 +7741,34 @@ examples.
 
 =over 5
 
-=item exiftool -filename=new.jpg dir/old.jpg
+=item C<exiftool -filename=new.jpg dir/old.jpg>
 
 Rename C<old.jpg> to C<new.jpg> in directory C<dir>.
 
-=item exiftool -directory=%e dir
+=item C<exiftool -directory=%e dir>
 
 Move all files from directory C<dir> into directories named by the original
 file extensions.
 
-=item exiftool '-Directory<DateTimeOriginal' -d %Y/%m/%d dir
+=item C<exiftool '-DirectoryE<lt>DateTimeOriginal' -d %Y/%m/%d dir>
 
 Move all files in C<dir> into a directory hierarchy based on year, month and
 day of C<DateTimeOriginal>.  eg) This command would move the file
 C<dir/image.jpg> with a C<DateTimeOriginal> of C<2005:10:12 16:05:56> to
 C<2005/10/12/image.jpg>.
 
-=item exiftool -o . '-Directory<DateTimeOriginal' -d %Y/%m/%d dir
+=item C<exiftool -o . '-DirectoryE<lt>DateTimeOriginal' -d %Y/%m/%d dir>
 
 Same effect as above except files are copied instead of moved.
 
-=item exiftool '-filename<%f_${model;}.%e' dir
+=item C<exiftool '-filenameE<lt>%f_${model;}.%e' dir>
 
 Rename all files in C<dir> by adding the camera model name to the file name.
 The semicolon after the tag name inside the braces causes characters which
 are invalid in Windows file names to be deleted from the tag value (see the
 L</Advanced formatting feature> for an explanation).
 
-=item exiftool '-FileName<CreateDate' -d %Y%m%d_%H%M%S%%-c.%%e dir
+=item C<exiftool '-FileNameE<lt>CreateDate' -d %Y%m%d_%H%M%S%%-c.%%e dir>
 
 Rename all images in C<dir> according to the C<CreateDate> date and time,
 adding a copy number with leading '-' if the file already exists (C<%-c>),
@@ -7718,7 +7776,7 @@ and preserving the original file extension (C<%e>).  Note the extra '%'
 necessary to escape the filename codes (C<%c> and C<%e>) in the date format
 string.
 
-=item exiftool -r '-FileName<CreateDate' -d %Y-%m-%d/%H%M_%%f.%%e dir
+=item C<exiftool -r '-FileNameE<lt>CreateDate' -d %Y-%m-%d/%H%M_%%f.%%e dir>
 
 Both the directory and the filename may be changed together via the
 C<FileName> tag if the new C<FileName> contains a '/'.  The example above
@@ -7726,7 +7784,7 @@ recursively renames all images in a directory by adding a C<CreateDate>
 timestamp to the start of the filename, then moves them into new directories
 named by date.
 
-=item exiftool '-FileName<${CreateDate}_$filenumber.jpg' -d %Y%m%d -ext jpg .
+=item C<exiftool '-FileNameE<lt>${CreateDate}_$filenumber.jpg' -d %Y%m%d -ext jpg .>
 
 Set the filename of all JPG images in the current directory from the
 CreateDate and FileNumber tags, in the form "20060507_118-1861.jpg".
@@ -7745,67 +7803,67 @@ the B<-geotag> option.)
 
 =over 5
 
-=item exiftool -geotag track.log a.jpg
+=item C<exiftool -geotag track.log a.jpg>
 
 Geotag an image (C<a.jpg>) from position information in a GPS track log
 (C<track.log>).  Since the C<Geotime> tag is not specified, the value of
 DateTimeOriginal is used for geotagging.  Local system time is assumed
 unless DateTimeOriginal contains a timezone.
 
-=item exiftool -geotag track.log -geolocate=geotag a.jpg
+=item C<exiftool -geotag track.log -geolocate=geotag a.jpg>
 
 Geotag an image and also write geolocation information of the nearest city
 (city name, state/province and country).  Read here for more details about
 the Geolocation feature: L<https://exiftool.org/geolocation.html#Write>
 
-=item exiftool -geotag t.log -geotime='2009:04:02 13:41:12-05:00' a.jpg
+=item C<exiftool -geotag t.log -geotime='2009:04:02 13:41:12-05:00' a.jpg>
 
 Geotag an image with the GPS position for a specific time.
 
-=item exiftool -geotag log.gpx '-xmp:geotimeE<lt>createdate' dir
+=item C<exiftool -geotag log.gpx '-xmp:geotimeE<lt>createdate' dir>
 
 Geotag all images in directory C<dir> with XMP tags instead of EXIF tags,
 based on the image CreateDate.
 
-=item exiftool -geotag a.log -geosync=-20 dir
+=item C<exiftool -geotag a.log -geosync=-20 dir>
 
 Geotag images in directory C<dir>, accounting for image timestamps which
 were 20 seconds ahead of GPS.
 
-=item exiftool -geotag a.log -geosync=1.jpg -geosync=2.jpg dir
+=item C<exiftool -geotag a.log -geosync=1.jpg -geosync=2.jpg dir>
 
 Geotag images using time synchronization from two previously geotagged images
 (1.jpg and 2.jpg), synchronizing the image and GPS times using a linear time
 drift correction.
 
-=item exiftool -geotag a.log '-geotimeE<lt>${createdate}+01:00' dir
+=item C<exiftool -geotag a.log '-geotimeE<lt>${createdate}+01:00' dir>
 
 Geotag images in C<dir> using CreateDate with the specified timezone.  If
 CreateDate already contained a timezone, then the timezone specified on the
 command line is ignored.
 
-=item exiftool -geotag= a.jpg
+=item C<exiftool -geotag= a.jpg>
 
 Delete GPS tags which may have been added by the geotag feature.  Note that
 this does not remove all GPS tags -- to do this instead use C<-gps:all=>.
 
-=item exiftool -xmp:geotag= a.jpg
+=item C<exiftool -xmp:geotag= a.jpg>
 
 Delete XMP GPS tags which were added by the geotag feature.
 
-=item exiftool -xmp:geotag=track.log a.jpg
+=item C<exiftool -xmp:geotag=track.log a.jpg>
 
 Geotag an image with XMP tags, using the time from DateTimeOriginal.
 
-=item exiftool -geotag a.log -geotag b.log -r dir
+=item C<exiftool -geotag a.log -geotag b.log -r dir>
 
 Combine multiple track logs and geotag an entire directory tree of images.
 
-=item exiftool -geotag 'tracks/*.log' -r dir
+=item C<exiftool -geotag 'tracks/*.log' -r dir>
 
 Read all track logs from the C<tracks> directory.
 
-=item exiftool -p gpx.fmt dir > out.gpx
+=item C<exiftool -p gpx.fmt dir E<gt> out.gpx>
 
 Generate a GPX track log from all images in directory C<dir>.  This example
 uses the C<gpx.fmt> file included in the full ExifTool distribution package
@@ -7817,26 +7875,26 @@ and assumes that the images in C<dir> have all been previously geotagged.
 
 =over 5
 
-=item cat a.jpg | exiftool -
+=item C<cat a.jpg | exiftool ->
 
 Extract information from stdin.
 
-=item exiftool image.jpg -thumbnailimage -b | exiftool -
+=item C<exiftool image.jpg -thumbnailimage -b | exiftool ->
 
 Extract information from an embedded thumbnail image.
 
-=item cat a.jpg | exiftool -iptc:keywords+=fantastic - > b.jpg
+=item C<cat a.jpg | exiftool -iptc:keywords+=fantastic - E<gt> b.jpg>
 
 Add an IPTC keyword in a pipeline, saving output to a new file.
 
-=item curl -s http://a.domain.com/bigfile.jpg | exiftool -fast -
+=item C<curl -s http://a.domain.com/bigfile.jpg | exiftool -fast ->
 
 Extract information from an image over the internet using the cURL utility. 
 The B<-fast> option prevents exiftool from scanning for trailer information,
 so only the meta information header is transferred.
 
-=item exiftool a.jpg -thumbnailimage -b | exiftool -comment=wow - |
-exiftool a.jpg -thumbnailimage'<=-'
+=item C<exiftool a.jpg -thumbnailimage -b | exiftool -comment=wow - |
+exiftool a.jpg -thumbnailimage'E<lt>=-'>
 
 Add a comment to an embedded thumbnail image.  (Why anyone would want to do
 this I don't know, but I've included this as an example to illustrate the
@@ -7859,7 +7917,7 @@ the commands if B<-execute> was used).
 
 =head1 AUTHOR
 
-Copyright 2003-2024, Phil Harvey
+Copyright 2003-2025, Phil Harvey
 
 This is free software; you can redistribute it and/or modify it under the
 same terms as Perl itself.