exiftool -tagsfromfile in Perl API

[marjue]

Hi

How can i do this in Perl

exiftool -tagsfromfile src.jpg "-exif:all>exif:all" dst.jpg

There is no command to do this or am i blind?

Thanx for help
Marcus

[Phil Harvey]

Hi Marcus,

This is the way to do it:

Code Select Expand

    $exifTool->SetNewValuesFromFile('src.jpg', 'exif:all>exif:all');
    $exifTool->WriteInfo('dst.jpg', 'modified_dst.jpg');

- Phil

[marjue]

OK ... i was blind 

thanx Phil