(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();

$xmp = chilkat::CkXmp->new();

$success = $xmp->UnlockComponent("Anything for 30-day trial.");
if ($success != 1) {
    print $xmp->lastErrorText() . "\r\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() . "\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 (!($xml eq null )) {
    $success = $xml->SaveXml("xmpMetaData.xml");
    if ($success != 1) {
        print $xml->lastErrorText() . "\r\n";
    }

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

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