No dice. Still getting unwanted/duplicate fields. So you have the full benefit of coding stylings, see below:
$strInsert="";
$strFields="";
$strVals="";
my @ioTagList = qw(ObjectName DateCreated By-line By-lineTitle City Province-State
Country-PrimaryLocationName Headline Credit Source Caption-Abstract Writer-Editor
OriginalTransmissionReference Category);
my $exifTool = new Image::ExifTool;
$info = $exifTool-)ImageInfo($imgPath, \@ioTagList, {Group =) 'IPTC'});
foreach (sort keys %$info) {
my $val = $$info{$_};
if (ref $val eq 'ARRAY') {
$val = join(', ', @$val);
} elsif (ref $val eq 'SCALAR') {
$val = '(Binary data)';
}
$strFields = $strFields.$_.",";
$strVals = $strVals."'".$val."',";
$strInsert = "insert into table (".substr($strFields, 0, length($strFields)-1).") values
(".substr($strVals, 0, length($strVals)-1).")";
}
print "\n\n$strInsert\n";
$exifTool='';
result:
insert into table (ApplicationRecordVersion,By-line,Caption-Abstract,Category,Category
(1),City,City (1),CopyrightNotice,Credit,Credit (1),DateCreated,DateCreated
(1),Headline,Headline (1),Keywords,ObjectName,Source,Source (1),SupplementalCategories
(1),Writer-Editor) values ('2','Spc. Creighton Holub, Combat Avi','The sun sets behind a palm
tree at Forward Operating Base Kalsu on May 7. (U.S. Army photo by Spc. Creighton Holub, Combat
Aviation Brigade PAO, 4th Infantry Division)','WAR','WAR','Taji','Taji','Combat Aviation Brigade
PAO photo by Spc. Creighton Holub','U.S. Army photo by Spc. Creighton Holub, Combat Aviation
Brigade, 4 th Infantry Division','U.S. Army photo by Spc.
Creighto','2006:05:07','2006:05:07','Combat Aviation Brigade operations north of
Baghdad','Combat Aviation Brigade operations north of Baghdad','Taji, deployment, Iraq,
aviation, Army aviation, helicopters, Soldiers, soldiers, 4ID, 4th Infantry Division, Army, U.S.
Army, Operation Iraqi Freedom, OIF, Kalsu, FOB Kalsu','VIRIN 060507-A-8847H-001','Combat
Aviation Brigade Public Affairs Office, 4th Infantry Division','Combat Aviation Brigade Public
A','Iraq, Camp Taji, aviation, Operation Iraqi Freedom, OIF','Spc. Creighton Holub, Combat Avi')
any thoughts?
(4)
]
