Beefy Boxes and Bandwidth Generously Provided by pair Networks
go ahead... be a heretic

Re^2: Reading notes in gedcom files?

by StarkRavingCalm (Sexton)
on Apr 27, 2010 at 14:43 UTC ( #837117=note: print w/replies, xml ) Need Help??

in reply to Re: Reading notes in gedcom files?
in thread Reading notes in gedcom files?

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

Replies are listed 'Best First'.
Re^3: Reading notes in gedcom files?
by StarkRavingCalm (Sexton) on Apr 29, 2010 at 18:00 UTC

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

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://837117]
and all is quiet...

How do I use this? | Other CB clients
Other Users?
Others imbibing at the Monastery: (8)
As of 2018-06-18 16:20 GMT
Find Nodes?
    Voting Booth?
    Should cpanminus be part of the standard Perl release?

    Results (110 votes). Check out past polls.