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 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

• gedcom_filter-2.2.pl

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