Perl

XMP Array Property - Bag, Seq, or Alt

See more XMP Examples

How to insert or update an XMP array property (bag, seq, or alt). Chilkat2 Perl

use strict;
use warnings;
use Chilkat2;

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

my $xmp = Chilkat2::Xmp->new;

# Load a JPG or TIF image file.
# Sample JPG's with XMP metadata may be found at:
# http://www.chilkatsoft.com/testData/xmp/sample1.jpg
# http://www.chilkatsoft.com/testData/xmp/sample2.jpg
# http://www.chilkatsoft.com/testData/xmp/sample3.jpg
my $success = $xmp->LoadAppFile('sample1.jpg');
if (!$success) {
    print $xmp->LastErrorText, "\n";
    exit;
}

print 'Num embedded XMP docs: ', $xmp->NumEmbedded, "\n";

# Assuming there is at least one, get the 1st.
# (There is typically never more than one, but theoretically it's possible.)
my $xml = $xmp->GetEmbedded(0);
if ($xmp->LastMethodSuccess) {
    # Create an object to hold one or more string values.
    my $sa = Chilkat2::StringArray->new;
    $success = $sa->Append('value_1');
    $success = $sa->Append('value_2');
    # ...

    $success = $xmp->AddArray($xml, 'bag', 'Iptc4xmpCore:Chilkat', $sa);
    if (!$success) {
        print $xmp->LastErrorText, "\n";
    } else {
        # Save the JPG.
        $success = $xmp->SaveAppFile('modified.jpg');
        if (!$success) {
            print $xmp->LastErrorText, "\n";
        }
    }
} else {
    print $xmp->LastErrorText, "\n";
}