Reading Notes field in gedcom files
[email protected] Mon, 26 Apr 2010 20:41:24 +0000 (UTC)
| Newsgroups | perl.gedcom |
|---|---|
| Message-ID | <511791618.13081571272314484490.JavaMail.root@sz0139a.westchester.pa.mail.comcast.net> |
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";
}
}