I don't think Gramps is doing anything incorrectly. Both ways of including notes are equally valid. The cross-reference method is useful in cases where the same note is attached to multiple records.
BTW, this script will only display notes that are attached to an individual record. It varies with genealogy programs, but notes may also be attached to event, place, etc. records. Trying to display all of these notes would be more complicated. On 4/27/2010 9:27 PM, RichGomes wrote: > Thanks! You've been very helpful. > > Would you say it's the way Gramps is exporting the gedcom files or something > else? > I have submitted to them as a possible bug. > > > > Rich > > -----Original Message----- > From: Bill Anderson [mailto:b...@anderson-ent.com] > Sent: Tuesday, April 27, 2010 9:13 PM > To: perl-gedcom@perl.org > Subject: Re: Reading Notes field in gedcom files > > Here is the script, modified to give the results expected. Notice the > use of resolve_xrefs and ref. > > #!/bin/perl -w > > use strict; > > use Gedcom; > > my $ged = Gedcom->new(shift); > > $ged->resolve_xrefs; > > for my $i ( $ged->individuals ) > > { > > for my $n ( $i->note ) > > { > > print "========================================\n"; > > print $i->name, "\n"; > > if (ref $n) > { > print $n->get_value, "\n"; > } > else > { > print "$n\n"; > } > > #print "========================================\n"; > > } > > } > > > On 4/26/2010 6:25 PM, Bill Anderson wrote: > >> I believe your script and the GEDCOM module are working correctly, but >> you do not get the results you expect because of the way your GEDCOM >> file is constructed. >> >> To illustrate, consider two sample files. The first is at >> http://www.ged-gen.com/download/lincoln.ged >> >> If you run your script against this file, you will see what you expect. >> >> The second is at http://www.genealogyforum.com/gedcom/gedcom1/ged1.ged >> >> When running your script against the second GEDCOM file, you will get >> the cross reference numbers you described below. >> >> If the GEDCOM file includes the note text in the tag value, as in the >> first file, you will get what you are looking for. >> >> If the GEDCOM file includes a cross reference to a note record, you will >> get the reference numbers. >> >> You need to add some tests to your script to see if you are getting note >> text, or a cross reference. If the latter, you need some code to fetch >> the note text from the separate note record. >> >> >> >> On 4/26/2010 3:41 PM, richgo...@comcast.net wrote: >> >> >>> Hoping I can get this question answered here. >>> >>> I have been trying to use perl to parse gedcom files and have not had much >>> luck. >>> My main goal is to get it to show me a list of people and then the contents >>> of the notes section of their record. My script is based on the example >>> code found here: >>> http://search.cpan.org/dist/Gedcom/lib/Gedcom.pm >>> >>> The only results I can seem to get back is the persons name and the >>> reference number of the notes associated with that person. >>> >>> I appreciate any help on this matter >>> >>> Thanks ! >>> >>> Script follows: >>> >>> >>> >>> #!/bin/perl -w >>> >>> use strict; >>> >>> use Gedcom; >>> >>> my $ged = Gedcom->new(shift); >>> >>> for my $i ($ged->individuals) >>> >>> { >>> >>> for my $n ($i->get_value("note")) >>> >>> { >>> >>> >>> print "========================================\n"; >>> >>> print $i->name, "\n"; >>> >>> print $i->note, "\n"; >>> >>> #print "========================================\n"; >>> >>> } >>> >>> } >>> >>> >>> >>> >>> >>> >
