in reply to Reading notes in gedcom files?

I have not used the Gedcom module, but you might be able to get a better understanding of what the data looks like using Data::Dumper. For example: 
  for my $i ($ged->individuals) {
    print Dumper($i);
  }

[download]
This is Tip #4 from the Basic debugging checklist.

Replies are listed 'Best First'.
Re^2: Reading notes in gedcom files?
by StarkRavingCalm (Sexton) on Apr 27, 2010 at 14:43 UTC

    Thanks to both of you.

    It's leaning toward a formatting issue with the way the source program creates the Gedcom files.

    I'll post again with the final outcome.

    Thanks, Rich

[reply]

      To close this off, it would seem the Notes field in Gedcom files can accept many formats.

      The script below works as originally expected.

      Thanks for the help. 

      #!/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";

    }

}

      [download]
[reply]
[d/l]

In Section Seekers of Perl Wisdom