Filtrer un GEDCOM (pour Geneanet) en Perl

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 GEDCOM. A noter qu’il faut que la personne racine ne soit pas exclue du fichier résultat.

– Enlever des étiquettes (voir la liste dans le fichier) non souhaités. Par exemple les notes, ou bien les adresses exactes ou encore les évènements spéciaux (non reconnus).

– Changer 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.