Re: Lossless EXIF strip from JPEG?

On May 8, 2011, at 6:51 PM, Anthony Thyssen wrote:

> On Sun, 8 May 2011 18:00:27 EDT
> [email protected] wrote:
> |  
> | With the Image::ExifTool Perl module installed, I found the  following to 
> | be equivalent to the command line method.  For execution  from a script 
> | without a system call.  In case anyone is interested in the  future:
> |  
> | use Image::ExifTool;
> | $exifTool = new  Image::ExifTool;
> | $exifTool->SetNewValue('*');  # delete  all...
> | $exifTool->WriteInfo('original_image.jpg','modified_image.jpg');
> | $errorMessage = $exifTool->GetValue('Error');
> | print  $errorMessage;  # (if has value an error occurred)
> |  
> | Took some figuring because I was thinking I'd need to load the image before 
> |  changing it.  Turns out I needed to assign the setting first using  
> | SetNewValue then load and save simultaneously using WriteInfo.
> | 
> | ~Rob
> 
> If you just want a command line tool look at jhead
>  http://www.sentex.net/~mwandel/jhead/
> 
> It is a simple package install for most Linux systems, probably Macs too.

Exiftool runs as a command line app too - the command for stripping all metadata from an image file is:

exiftool -overwrite_original -all= "/path/to/image.jpg"

-Roger