XMP Array Property - Bag, Seq, or Alt

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

Chilkat Module for Perl 5.8.*

Chilkat Module for Perl 5.10.*

Chilkat Module for Perl 5.8.* (x64)

Chilkat Module for Perl 5.10.* (x64)

use chilkat;

$xmp = new chilkat::CkXmp();

$success = $xmp->UnlockComponent("Anything for 30-day trial.");
if ($success != 1) {
    print $xmp->lastErrorText() . "\n";
    exit;
}

#  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() . "\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 CkXml
$xml = $xmp->GetEmbedded(0);
if (!($xml eq null )) {

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

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

    }

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