Commentaires sur : Export de vos données de KPhotoAlbum vers IPTC

Par : Chaland

Chaland — Fri, 28 Oct 2011 20:48:24 +0000

Vous aviez raison au lancement j’avais oublié les 2 paramètres.
Maintenant il traite toutes les données et affiche donnée en cours.
Par contre ,il n’édite pas le fichier IPTCI.
Merci de votre aide

Par : Chaland

Chaland — Fri, 28 Oct 2011 14:09:28 +0000

param 2 :*\.jpeg

Par : Chaland

Chaland — Fri, 28 Oct 2011 14:04:44 +0000

Je ne comprend pas. En fait j’ai ceci: Param 2 : <>
Est ce correct?
De plus j’ai un problème sur cpan je ne peux installer per5 qu’en root et sur /root/local pourquoi?

Par : b_adele

b_adele — Fri, 28 Oct 2011 11:10:04 +0000

Avez vous indiquer les 2 paramètres lors du lancement de votre commande ? Il semblerait que la variable $filter soit vide. Sinon je ne vois pas.

Par : Chaland

Chaland — Fri, 28 Oct 2011 10:33:06 +0000

kphotoalbum2iptc.pl
! /usr/bin/perl -w
# kphotoalbum2iptc.pl

# Param 1 : /home/pierre
# Param 2 : <>

# A MODIFIER
use lib qw(/home/pierre/local/share/perl5/site_perl/5.12.3/);
$verbose=0;
$onlyparse=0;

# Chargement des librairies
use Image::Kimdaba;
use Image::IPTCInfo;

my @ListOfPictures;

$folder = $ARGV[0];
$filter = $ARGV[1];

# Parse le catalogue kphotoalbumavec
print « /home/pierre/kphotoalbum:$folder\n »;
parseDB( « $folder » );

# Compte le nombre de photos
my $nb1= scalar keys %imageattributes;
my $nb2= scalar keys %imageoptions;
print « $nb1 photos dont $nb2 avec des tags:\n »;

# Ajout des infos dans la photo (IPTC)
$count=0;
foreach $kphoto (keys(%imageoptions))
{
if ($kphoto =~ m/$filter/i ) {
$count++;
print « Photo en cours : $folder/$kphoto (N° $count)\n »;
my $iptc = create Image::IPTCInfo(« $folder/$kphoto »);
foreach $kkey (keys(%{$imageoptions{$kphoto}}))
{
if ($verbose) { print « –> $kkey\n »; }
foreach $values (@{${$imageoptions{$kphoto}}{$kkey}})
{
if ($verbose) { print « —–> $values\n »; }
$iptc->AddKeyword(« $values »);
}
}

if (!$onlyparse) { $iptc->Save();}
}
}

print « $count photos traitées »;

Ce script depuis mon dernier commentaire a toujours bien fonctionner.
Aujourd’hui je suis passé à perl 5.12.3.
Le script stoppe la ligne 36 avec cette info:
« Use of uninitialized value $filter in regexp compilation at ./kphotoalbum2iptc.pl line 36. »
Il traite toutes les photos mais ne sort rien.
Avez vous une idée du problème?
Merci

Par : Keuronde

Keuronde — Wed, 08 Dec 2010 14:10:36 +0000

=> Chaland
A ta place, j’ouvrirai le fichier XML pour voir ce qui se trouve à la ligne 1040, colonne 48. Il y a peut-être un caractère étrange qui te donnera une idée sur ce qui ne va pas…

Par : Chaland

Chaland — Tue, 30 Nov 2010 09:57:53 +0000

Désolé j’ai fait une erreur mon album s’appelle Kphotoalbum avec un K majuscule.
Maintenant j’ai l’anomalie suivante:
/home/pierre/Kphotoalbum: /home/pierre/Kphotoalbum

reference to invalid character number at line 1040, column 48, byte 46620 at /usr/lib/perl5/vendor_perl/5.10.1/i386-linux-thread-multi/XML/Parser.pm line 187
Avez-vous une idée? Merci

Par : Chaland

Chaland — Mon, 29 Nov 2010 22:25:05 +0000

Je voudrais bien pouvoir transférer les infos de 10000photos de kphotoalbum sur Digikam.
J’ai essayé le script mais je ni arrive pas . Voici ce que j’ai fait :
Image ::kimdaba et Image::IPTCInfo sont bien installés.
[root@sonypierre home]# ./kphotoalbum2iptc.pl /pierre/kphotoalbum.
Le script se trouve dans home . Kphotoalbum est situé dans home/pierre.
Voici le script:
#! /usr/bin/perl -w
# kphotoalbum2iptc.pl

# Param 1 : /pierre
# Param 2 : « \.jpeg »

# A MODIFIER

use lib qw(/pierre/local/share/perl5/site_perl/5.10.0/);
$verbose=0;
$onlyparse=0;

# Chargement des librairies
use Image::Kimdaba;
use Image::IPTCInfo;

my @ListOfPictures;

$folder = $ARGV[0];
$filter = $ARGV[1];

# Parse le catalogue KPhotoAlbum
print « Chemin de base: $folder\n »;
parseDB( « $folder » );

# Compte le nombre de photos
my $nb1= scalar keys %imageattributes;
my $nb2= scalar keys %imageoptions;
print « $nb1 photos dont $nb2 avec des tags:\n »;

if (!$onlyparse) { $iptc->Save();}
}
}

print « $count photos traitées »;

Lorsque je le lance Voici le résultat il s’arrête à la ligne 26.
[root@sonypierre home]# ./kphotoalbum2iptc.pl /home/pierre/kphotoalbum
Chemin de base: /home/pierre/kphotoalbum
Can not find KimDaBa’s database at ./kphotoalbum2iptc.pl line 26.

Pouvez vous m’aider? Merci

Par : Teebo

Teebo — Sat, 06 Feb 2010 12:21:52 +0000

EDIT: On oublie tout, appelez moi stupide, j’avais pas changé le chemin (celui directement sous le gros « A MODIFIER », oui oui, celui là même…

Par : Teebo

Teebo — Sat, 06 Feb 2010 10:31:42 +0000

Bonjour,
Depuis hier soir je me demande bien comment changer de logiciel sans perdre mes infos rentrées dans Kphotoalbum, et là ce matin, miracle, je tombe sur ce post (désolé de jouer les archéologues ), j’essaye donc comme indiqué, il semble que l’installation se passe bien (Warning usually Harmless de YAML) mais quand j’essaye de lancer le script :
BEGIN failed–compilation aborted at ./kphotoalbum2iptc.pl line 14.

Je suis sous Ubuntu Koala.
Quelqu’un aurait une idée pour moi?