Gedcom

 view release on metacpan or  search on metacpan

CHANGES  view on Meta::CPAN

 - Lots of clean-ups (Brian Cassidy)
 - POD fixes (Brian Cassidy) (rt 31321)
 - Add half-sibling/-brothers/-sisters (Michael H. Ionescu) (github 1)
 - Make sex() tolerant of missing information (Michael H. Ionescu) (github 1)
 - Select correct grammar when adding items (rt 82196)
 - Some doc fixes (rt 76519)
 - Change and document method for specifying a top-level xref
 - Always use correct grammar for notes (based on code from Jonathan Kamens)
   (rt 45391)
 - Clean up Makefile.PL (rt 6681)
 - Handle UTF-8 encoded files and BOMs (rt 79507)
 - Add grammar for version 5.5.1

Release 1.16 - 24th April 2009
 - Allow family to be undef in children_statement in lines2perl
 - Add basic web services

Release 1.15 - 3rd May 2005
 - Update mailing list information

Release 1.14 - 5th April 2004

README.md  view on Meta::CPAN

    $total is the number of operations that need to be performed

If the subroutine returns false, the operation is aborted.

## set\_encoding

    $ged->set_encoding("utf-8");

Valid arguments are "ansel" and "utf-8".  Defaults to "ansel" but is set to
"utf-8" if the GEDCOM data was read from a file which was deemed to contain
UTF-8, either due to the presence of a BOM or as specified by a CHAR item.

Set the encoding for the GEDCOM file.  Calling this directly doesn't alter the
CHAR item, but does affect the way in which files are written.

## write

    $ged->write($new_gedcom_file, $flush);

Write out the GEDCOM file.

lib/Gedcom.pm  view on Meta::CPAN

  $total is the number of operations that need to be performed

If the subroutine returns false, the operation is aborted.

=head2 set_encoding

  $ged->set_encoding("utf-8");

Valid arguments are "ansel" and "utf-8".  Defaults to "ansel" but is set to
"utf-8" if the GEDCOM data was read from a file which was deemed to contain
UTF-8, either due to the presence of a BOM or as specified by a CHAR item.

Set the encoding for the GEDCOM file.  Calling this directly doesn't alter the
CHAR item, but does affect the way in which files are written.

=head2 write

  $ged->write($new_gedcom_file, $flush);

Write out the GEDCOM file.

lib/Gedcom/Item.pm  view on Meta::CPAN

        binmode $fh,    ":encoding(UTF-8)";
        binmode STDOUT, ":encoding(UTF-8)";
        binmode STDERR, ":encoding(UTF-8)";
    } else {
        binmode $fh;
    }

    # find out how big the file is
    seek($fh, 0, 2);
    my $size = tell $fh;
    seek($fh, $bom ? 3 : 0, 0);  # skip BOM
    $. = 0;

    # initial callback
    my $callback = $self->{callback};;
    my $title = "Reading";
    my $txt1 = "Reading $self->{file}";
    my $count = 0;
    return undef
    if $callback &&
    !$callback->($title, $txt1, "Record $count", tell $fh, $size);