include pedigree information into program

[email protected] (Jutta Wrage) Wed, 27 Sep 2017 20:44:12 +0200
Newsgroups perl.gedcom
Message-ID <[email protected]>
Hi!

I do not understand how to get access to the pedigree information for a =
child in a family.

I have this in my code to print out the children in each family of a =
certain person as starting point:

(essentials here only)

my @fams =3D $start->fams;
my @fams =3D $start->fams;=20
for my $fam (@fams)
    my @children =3D  $fam->children;
    for my $child (@children) {
        print_person($child);
    }
}

print_person is a sub to print information about an individual.

As the PEDI information is in the fam record it seems I have to add =
something in the code above.

Could somebody give me a hint, please?

Regards,

Jutta

--=20
http://www.witch.westfalen.de