ExifTool Forum

ExifTool => The Image::ExifTool API => Topic started by: chuckkahn on April 12, 2022, 06:35:31 PM

Title: Perl script to shift date
Post by: chuckkahn on April 12, 2022, 06:35:31 PM
I calculated that the date shift I want to apply is "4:2:26 14:26:36" but the output of my script doesn't show any change to DateTimeOriginal being applied. 

zCKAvid:EXIF-tags-from-.insp-into-jpeg charleskahn$ perl '/Users/charleskahn/Documents/GitHub/EXIF-tags-from-.insp-into-jpeg/exif_shift_date.pl'

=================== INSP files
Date/Time Original  Camera  CameraXX/FileName 

before
2018:01:01 23:11:04  Insta360 One2  IMG_20180101_191104_00_218.insp 
after
2018:01:01 23:11:04  Insta360 One2  IMG_20180101_191104_00_218.insp 
zCKAvid:EXIF-tags-from-.insp-into-jpeg charleskahn$   


https://github.com/chuckkahn/EXIF-tags-from-.insp-into-jpeg/blob/main/exif_shift_date.pl
Title: Re: Perl script to shift date
Post by: chuckkahn on April 12, 2022, 08:43:10 PM
Never mind.  Fixed it.