Perl

Add XMP MetaData to JPG or TIFF

See more XMP Examples

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

use strict;
use warnings;
use Chilkat2;

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

my $xmp = Chilkat2::Xmp->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.
my $xml = $xmp->NewXmp();

# Add some properties...
my $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) {
    print $xml->LastErrorText, "\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) {
    print $xmp->LastErrorText, "\n";
    exit;
}

$success = $xmp->Append($xml);
if (!$success) {
    print $xmp->LastErrorText, "\n";
    exit;
}

$success = $xmp->SaveAppFile('screamOut.jpg');
if (!$success) {
    print $xmp->LastErrorText, "\n";
    exit;
}