Preserve ICC-profile

[erixon]

Thanks for a great tool.

I'm using ImageMagick to create JPG-thumbnails but having the problem with strip() which removes the color-profile-data and makes the images dull.

Instead I should be able to fix this through ExifTool.

I guess it's this I want to do but in Perl?
exiftool -all= --icc_profile:all thumbnail.jpg

Is ICC-profile the only thing I need to preserve?

It sounds like a quite simple task but I'm not have been able to do a working Perl code.

kind regards
Tomas

[Phil Harvey]

Hi Tomas,

Yup, that's the command.

From the API it is done just like this example in the documentation:

Code Select Expand

# delete all but EXIF tags
$exifTool->SetNewValue('*');  # delete all...
$exifTool->SetNewValue('EXIF:*', undef, Replace => 2); # ...but EXIF

Except that you specify 'ICC_Profile:*' instead of 'EXIF:*'.  ('ICC_Profile:all' will also work)

- Phil

Edit: Fixed spelling of your name... sorry.

[erixon]

Ok thanks, it seems to work

my $et = new Image::ExifTool();
$et->SetNewValue("*");
$et->SetNewValue("ICC_Profile:*" undef, Replace => 2);
$et->WriteInfo($original_file, $thumbnail_file);

/Tomas