Re: Reading Notes field in gedcom files

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.

No this is not a bug or if it is it is in the GEDCOM standard. GEDCOM 
has multiple ways that data can be placed in the file, in part because 
it has evolved over time to meet the needs of different users and to 
avoid problems and issues present in earlier versions. But sadly they 
never deprecated or removed the older stuff. So now you can not assume 
that data is placed in any one particular way into the GEDCOM file. In 
fact, in my version of Family Tree Maker I have the ability to select 
from 3-4 different ways to generate a GEDCOM file depending on what 
software is the intended target.

So we all just have to deal with this.

-Steve

> Rich
> 
> -----Original Message-----
> From: Bill Anderson [mailto:[email protected]] 
> Sent: Tuesday, April 27, 2010 9:13 PM
> To: [email protected]
> 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, [email protected] 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"; 
>>>
>>> } 
>>>
>>> } 
>>>
>>>
>>>
>>>   
>>>     
>