(Perl) Extract XMP MetaData as XML

Demonstrates how to open a JPG or TIF image file and extract the XMP metadata as XML.

Chilkat Perl Downloads Perl Module for Windows, Linux, Alpine Linux, MAC OS X, Solaris, FreeBSD, OpenBSD, Raspberry Pi and other single board computers

use chilkat();

# 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) {
    $success = $xml->SaveXml("xmpMetaData.xml");
    if ($success != 1) {
        print $xml->lastErrorText() . "\r\n";
    }

    print "Success." . "\r\n";

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