Bonjour petit journal,

Voilà quelques temps que je cherche de quoi ranger mes quelques 8000 photos numériques.

Kimdaba est très satisfaisant mais il stocke les mots clefs dans une base certes XML mais externes aux photos.

Jbrout est très sympa mais moins pratique que kimdaba a mon sens pour cataloguer de grandes quantités de photos et puis en ce moment je travaille avec KDE... ( Fin du Troll :-)

Alors voilà pour concilier kimdaba et stockage dans les photos, voici un tout petit script en perl qui va recopier les données de kimdaba dans les mots clefs IPTC
C'est simpliste mais ca marche. Attention toutefois, il efface les eventuels mots clefs déjà présents dans l'image.


#! /usr/bin/perl -w


use Image::Kimdaba;
use Image::IPTCInfo;

my @ListOfPictures;

my $folder=getRootFolder();
print "Root Folder: $folder\n";
parseDB( "$folder" );

my $nb1= scalar keys %imageattributes;
my $nb2= scalar keys %imageoptions;
print "Following options were present in your $nb1 pictures :\n";
while( my ($option,$r_values) = each %alloptions )
{
my $nb = scalar @$r_values;
print "\t$nb $option\n";
}
print "\n";

foreach $key1 (keys(%imageoptions))
{
print "Image: $folder/$key1\n";
my $iptc = create Image::IPTCInfo("$folder/$key1");
$iptc->ClearKeywords();
foreach $key2 (keys(%{$imageoptions{$key1}}))
{
print "--> $key2\n";
# print "---->${$imageoptions{$key1}}{$key2}\n";
foreach $keyword (@{${$imageoptions{$key1}}{$key2}})
{
print "-----> $keyword\n";
$iptc->AddKeyword("$keyword");
}
}
$iptc->Save();
}


> Lire le journal (2 commentaires, moyenne: 1,5).