IPTC XMP EXIF Clearing and Writing issues

I am trying to clear all IPTC/XMP/EXIF data from an image
and write in only the information I want.  I am using the
following to clear the metadata<br>
<code>
$exifTool->SetNewGroups('XMP');
$exifTool->SetNewValue('XMP:all' =>  undef);
$exifTool->SetNewGroups('IPTC');
$exifTool->SetNewValue('IPTC:all' =>  undef);
$exifTool->SetNewGroups('EXIF');
$exifTool->SetNewValue('EXIF:all' =>  undef);
$update=$exifTool-> WriteInfo("$basedir\record[1].jpg","$basedir\record[1]x.jpg");
</code><br>
and it works great.  I then rename the file back to the
original.  The problem comes when I try to write back to the
file.  I am using:
<code>
$exifTool-> SetNewGroups('IPTC');
$exifTool-> SetNewValue('IPTC:ObjectName' =>  'test
data');
$update=$exifTool->
WriteInfo("$basedir\$record[1].jpg","$basedi
r\$record[1]x.jpg",'IPTC');
</code><br>
Neither perl or ExifTool report an error, but no data is
written to the file.  I am assuming that clearing the data
the way I am will actually remove the spots in the file
where it is supposed to reside, so there is nowhere to write
to.  I tried using the following:
<code>
$exifTool->SetNewGroups('XMP');
$exifTool->SetNewValue('XMP:all' =>  '');
$exifTool->SetNewGroups('IPTC');
$exifTool->SetNewValue('IPTC:all' =>  '');
$exifTool->SetNewGroups('EXIF');
$exifTool->SetNewValue('EXIF:all' =>  '');
$update=$exifTool->WriteInfo("$basedir\record[1].jpg","$basedir\record[1]x.jpg");
</code><br>
but I get a "Can't set value for all tags" error
which comes from the date fields.  Any thoughts on how to
quickly clear all IPTC-XMP-EXIF fields without having to do
them one by one and still be able to write to the resulting
file?

To write a respons, access
http://ww
w.cpanforum.com/response_form/3314

To see the full thread, access
http://www.cpan
forum.com/threads/3314

--
You are getting this messages from www.cpanforum.com
To change your subscription information visit http://www.cpanforum.
com/mypan/