Oh, I am a nube in spades.
Please ignore the prior message. I found the family functions on http://search.cpan.org/dist/Gedcom/Gedcom/Individual.pm which clearly list fams and famc as methods of Gedcom::Individual. The following codes works as expected: foreach $Individual (@Individuals) { foreach $FamilyType (@FamilyTypes) { if (defined $Individual->$FamilyType) { $FamilyID = $Individual->$FamilyType; print $Individual->get_value("name") . " [$Individual->{xref}] is part of $FamilyID->{xref} [$FamilyType].\n"; my @CurrInds = defined $Families{$FamilyID} ? $Families{$FamilyID} : (); @CurrInds = push @CurrInds, $Individual->{xref}; $Families{$FamilyID} = @CurrInds; } else { print "Family type, $FamilyType, not defined for " . $Individual->get_value("name") . " [$Individual->{xref}].\n"; } } } From: John Washburn [mailto:j...@washburnresearch.org] Sent: Monday, April 13, 2009 12:34 AM To: j...@washburnresearch.org; 'Philip Durbin'; 'Stephen Woodbridge' Cc: 'List - Gedcom' Subject: Feel like a Nube Just as thought I was getting the hang of the add(), get_value(), and the other get_ functions. I ran into trouble with $i->getvalue("fams"); Below is my test GEDCOM file. I was experimenting with the FAMS and FAMC tags. I don't understand why this code fails to find the child to family link (FAMC) or the spouse to family link (FAMS), yet $MasterGedCom->write() writes out the FAMC and FAMS links properly. What am I missing here? This code: #!/usr/bin/perl use strict; use Gedcom; #Read in the GEDCOM file we have so far. my $MasterGedCom = Gedcom->new(<<Filename of the GECom File containing the data below>>); $MasterGedCom->validate(); if (defined $MasterGedCom->get_individual("Washburn")) { my @Individuals = $MasterGedCom->get_individual("Washburn"); my $NumIndividuals = @Individuals; print "NumIndividuals = $NumIndividuals.\n"; my %Families = (); my $FamilyID; my @FamilyTypes = ("famc", "fams"); my $FamilyType; my $Individual; foreach $Individual (@Individuals) { foreach $FamilyType (@FamilyTypes) { $FamilyType = uc $FamilyType; if (defined $Individual->get_value($FamilyType)) # trouble in paradise begins here { $FamilyID = $Individual->get_value($FamilyType); print $Individual->get_value("name") . " [$Individual->{xref}] is part of $FamilyID [$FamilyType].\n"; my @CurrInds = defined $Families{$FamilyID} ? $Families{$FamilyID} : (); @CurrInds = push @CurrInds, $Individual->{xref}; $Families{$FamilyID} = @CurrInds; } else { print "Family type, $FamilyType, not defined for " . $Individual->get_value("name") . " [$Individual->{xref}].\n"; } } } } else { print "Individual not found\n"; } Returned this result: NumIndividuals = 2. Family type, FAMC, not defined for John William /Washburn/ [I1]. Family type, FAMS, not defined for John William /Washburn/ [I1]. Family type, FAMC, not defined for William Gordon /Washburn/ [I2]. Family type, FAMS, not defined for William Gordon /Washburn/ [I2]. When operating on this GEDCOM file: 0 HEAD 1 SOUR WINTREE 2 VERS 4.81 2 NAME Wintree 1 DEST WINTREE 1 DATE 2 APR 2009 1 SUBM @SUB1@ 1 FILE JohnWWashburn.ged 1 GEDC 2 VERS 5.5 2 FORM LINEAGE-LINKED 1 CHAR UTF-8 0 @SUB1@ SUBM 1 NAME John Washburn 0 @I1@ INDI 1 NAME John William /Washburn/ 1 SEX M 1 BIRT 2 DATE 26 AUG 1962 2 PLAC Gurnee, Illinois 1 OCCU Software Tester 1 CHAN 2 DATE 02 APR 2009 3 TIME 16:55:31 1 FAMC @F5@ 0 @I2@ INDI 1 NAME William Gordon /Washburn/ 1 SEX M 1 BIRT 2 DATE 28 MAR 1941 2 PLAC Gurnee, Illinois (St Therese Hospital in Waukegan) 1 CHAN 2 DATE 04 APR 2009 3 TIME 02:12:34 1 FAMS @F5@ 0 @I3@ INDI 1 NAME Barbra Jean /Simcox/ 1 SEX F 1 BIRT 2 DATE 1943 2 PLAC Chicago, Illinois 1 CHAN 2 DATE 02 APR 2009 3 TIME 05:04:15 1 FAMS @F5@ 0 @F5@ FAM 1 HUSB @I2@ 1 WIFE @I3@ 1 CHIL @I1@ 1 MARR 2 DATE 27 JAN 1962 2 PLAC Waukegan, Illinois 1 CHAN 2 DATE 04 APR 2009 3 TIME 02:13:22 0 TRLR No virus found in this incoming message. Checked by AVG - www.avg.com Version: 8.0.238 / Virus Database: 270.11.54/2055 - Release Date: 04/12/09 13:14:00
