gedcom_compare

#!/usr/local/bin/perl -w

# Copyright 2003-2019, Paul Johnson (paul@pjcj.net)

# This software is free.  It is licensed under the same terms as Perl itself.

# The latest version of this software should be available from my homepage:
# http://www.pjcj.net

# Version 1.22 - 15th November 2019

use strict;

require 5.005;

use Data::Dumper;
$Data::Dumper::Indent = 1;

use Gedcom 1.22;

use vars qw( $VERSION );
$VERSION = "1.22";

$SIG{__WARN__} = sub { print STDERR "\n@_" };

sub main {
    my ($g1, $g2) = @ARGV;

    $| = 1;

    print "reading $g1 ...";
    my $ged1 = Gedcom->new(
        gedcom_file => $g1,
        callback    => sub { print "." },
        read_only   => 0,
    );

    print "\nreading $g2 ...";
    my $ged2 = Gedcom->new(
        gedcom_file => $g2,
        callback    => sub { print "." },
        read_only   => 0,
    );
    print "\n";

    # my $comparison = $ged1->{record}->compare($ged2->{record});
    my $comparison = $ged1->get_individual("I1")
                          ->compare($ged2->get_individual("I0003"));

    $comparison->print;
    # print Dumper $comparison;
}

main