Filtrer un GEDCOM (pour Geneanet) en Perl
7 Juin 2009
Sommaire
But
Il peut être utile pour l’exportation phpGedView/webtree qui ne permet pas de filtrer ni pour retirer les marqueurs non compatibles, ni pour retirer les personnes vivantes.
Fonctions
L’idée est de nettoyer le fichier GEDCOM de manière à:
– Enlever les personnes nées après une certaine date (1980 dans l’exemple). Je n’ai qu’une confiance limitée dans le filtre de Geneanet. A noter qu’il faut que la personne indiquée à la racine ne soit pas exclue du fichier résultat.
– Enlever des étiquettes (voir la liste en dur dans le fichier) non souhaitées. Par exemple les notes, ou bien les adresses exactes ou encore les évènements spéciaux (non reconnus).
– Echanger les étiquettes incompatibles (par exemple Webtrees utilise _ASSO à la place de ASSO).
Utilisation
gedcom_filter.pl monfichier.ged > fichier_filtre.ged
Fichiers perl
Dans $tag_remove, on trouve la liste des marqueurs qui seront retirés. A adapter selon ses besoins
Dans $year_min, on trouve l’année maximale des évènement qui seront exportés.
Exemple
Voir ici sur Geneanet