
srikrishnan
Novice
Nov 18, 2008, 12:32 AM
Post #1 of 1
(1733 views)
|
Hi All, I want to add xmp metadata details in postscript file before distilling to pdf. For this purpose I have written a perl script, something like: my $exifTool = new Image::ExifTool; $exifTool->SetNewValue(); foreach my $singleAu(@CreatVal) { ($success, $errStr) = $exifTool->SetNewValue('Creator'=> $singleAu, AddValue => 1); #print "Success: $success\n"; #print "Error $errStr\n"; } $exifTool->Options(Charset => 'Latin'); $exifTool->SetNewValue('Description',$DescrVal); $exifTool->SetNewValue('Format',$FormtVal); $exifTool->SetNewValue('Identifier','doi:'.$DoiiiVal); $exifTool->SetNewValue('Publisher', $PublsVal); $exifTool->SetNewValue('Rights',$RightVal, Charset => 'Latin'); $exifTool->SetNewValue('Title',$TitleVal); $exifTool->SetNewValue('Producer',$ProdcVal); print "$DoiiiVal\n"; $exifTool->SetNewValue('XMP-RDF:About','doi:'.$DoiiiVal, Protected=>'0x01', Protected=>'0x02'); #$exifTool->SetNewValue('About' => 'doi:'.$DoiiiVal,Group=>'XMP-RDF', Protected=>0x01); $exifTool->SetNewValue('Copyright' => $CpyrtVal, Charset => 'Latin'); $exifTool->SetNewValue('DOI',$DoiiiVal); $exifTool->SetNewValue('EIssn',$EissnVal); $exifTool->SetNewValue('EndingPage',$EndPgVal); $exifTool->SetNewValue('ISSN',$IssnoVal); $exifTool->SetNewValue('Number',$NumbrVal); $exifTool->SetNewValue('PublicationDate',$PubDtVal); $exifTool->SetNewValue('PublicationName',$PubNmVal); $exifTool->SetNewValue('RightsAgent',$RgtAgVal); $exifTool->SetNewValue('StartingPage',$SrtPgVal); $exifTool->SetNewValue('URL',$UrlllVal); $exifTool->SetNewValue('Volume',$VolumVal); $exifTool->SetNewGroups('XMP','EXIF','IPTC'); $exifTool->SetNewValue('CreateDate' => $CrtDtVal, Group => 'XMP'); $exifTool->SetNewValue('CreatorTool' => $CrtTlVal, Group => 'XMP'); $exifTool->SetNewValue('Identifier'=> 'Doi:'.$DoiiiVal, Group => 'XMP'); $exifTool->SetNewValue('Label'=> $LabelVal, Group => 'XMP'); $exifTool->SetNewValue('MetadataDate' => $MDdatVal, Group => 'XMP'); $exifTool->SetNewValue('ModifyDate' => $MfyDtVal, Group => 'XMP'); $exifTool->SetNewValue('DocumentID' => $DocIDVal); $exifTool->SetNewValue('InstanceID' => $InsIDVal); $exifTool->SetNewValue('Marked',$MarkdVal); $exifTool->WriteInfo($FileName, $mdfyName); But my problem is, I am not able to write "DOI" number in 'XMP-RDF:About' tag. in the ps and pdf file the value for "rdf:about" appears as empty. Can anyone helpme in this regard? Regards, Srikrishnan |