(Perl) Add XMP MetaData to JPG or TIFF

Demonstrates how to add XMP metadata to a JPG or TIFF image that doesn't already have XMP metadata.

Chilkat Perl Downloads Perl Module for Windows, MacOS, Linux, Alpine Linux, Solaris

use chilkat();

# This example assumes the Chilkat API to have been previously unlocked.
# See Global Unlock Sample for sample code.

$xmp = chilkat::CkXmp->new();

# The first step is to create a new XMP document, which is nothing
# more than XML.  The NewXmp method returns an XML document with
# the standard XMP boilerplate.  
# xml is a Xml
$xml = $xmp->NewXmp();

# Add some properties...
$success = $xmp->AddSimpleStr($xml,"Iptc4xmpCore:Chilkat","Blah blah");
# If you wish to view the XML, save it to a file and review it
# with a text editor:
$success = $xml->SaveXml("newXmp.xml");
if ($success != 1) {
    print $xml->lastErrorText() . "\r\n";
    exit;
}

# To add the XMP to the JPG (or TIFF), simply load the JPG,
# append the XMP, and save:
$success = $xmp->LoadAppFile("scream.jpg");
if ($success != 1) {
    print $xmp->lastErrorText() . "\r\n";
    exit;
}

$success = $xmp->Append($xml);
if ($success != 1) {
    print $xmp->lastErrorText() . "\r\n";
    exit;
}

$success = $xmp->SaveAppFile("screamOut.jpg");
if ($success != 1) {
    print $xmp->lastErrorText() . "\r\n";
    exit;
}