Re: gedcom diff

Ron Savage wrote:
> > From just looking at it right now, two obvious improvements that
> > are required are to compare actual dates rather than their textual
> > representations, and to match other textual records in a somewhat
> > finer graduation than 0% or 100%.
> 
> I take it you mean, e.g., by instantiating some form of Date::* or
> DateTime::*
> type of object, thus delegating the comparison work to pre-existing code?

You mean a Gedcom::Date object? Gedcom::Date knows about all valid date
formats in the gedcom specification. I think a comparison of two dates would
look something like this:

  $date1 = Gedcom::Date->parse( $indi1->birth->date );
  $date2 = Gedcom::Date->parse( $indi2->birth->date );

  if (not defined ($date1 < $date2)) {
    # the order of date1 and date2 is undefined;
    # they may refer to the same date
  }

I thought that I had also added a consistent_with() method, but apparently,
I have not uploaded that version yet. I will, when I am home again.

Gedcom::Date is available from your nearest CPAN archive.

Eugene

-- 
"Feel free" mit GMX FreeMail!
Monat für Monat 10 FreeSMS inklusive! http://www.gmx.net