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). Perl

use chilkat();

$success = 0;

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

$xmp = chilkat::CkXmp->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
$success = $xmp->LoadAppFile("sample1.jpg");
if ($success != 1) {
    print $xmp->lastErrorText() . "\r\n";
    exit;
}

print "Num embedded XMP docs: " . $xmp->get_NumEmbedded() . "\r\n";

# Assuming there is at least one, get the 1st.
# (There is typically never more than one, but theoretically it's possible.)

# xml is a Xml
$xml = $xmp->GetEmbedded(0);
if ($xmp->get_LastMethodSuccess() == 1) {

    # Create an object to hold one or more string values.
    $sa = chilkat::CkStringArray->new();
    $success = $sa->Append("value_1");
    $success = $sa->Append("value_2");
    # ...

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

    }

}
else {
    print $xmp->lastErrorText() . "\r\n";
}