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";
}
}
