view release on metacpan or  search on metacpan

examples/transliterate.pl  view on Meta::CPAN

print "Ge'ez  âž¡ Coptic âž¡ Ge'ez âž¡ Hebrew âž¡ Greek\n";
print "  $word  âž¡    $coptic âž¡   $ethio âž¡    $hebrew âž¡   $greek\n";

my $copticC = transliterate ( "co", $coptic );
my $ethioC  = transliterate ( "et", $coptic );
my $greekC  = transliterate ( "el", $coptic );
my $hebrewC = transliterate ( "he", $coptic );

print "Coptic âž¡ Coptic âž¡ Ge'ez âž¡ Hebrew âž¡ Greek\n";
print "   $coptic âž¡    $copticC âž¡   $ethioC âž¡    $hebrewC âž¡   $greekC\n";

my $copticE = transliterate ( "co", $ethio );
my $ethioE  = transliterate ( "et", $ethio );
my $greekE  = transliterate ( "el", $ethio );
my $hebrewE = transliterate ( "he", $ethio );

print "Ge'ez  âž¡ Coptic âž¡ Ge'ez âž¡ Hebrew âž¡ Greek\n";
print "  $ethio  âž¡    $copticE âž¡   $ethioE âž¡    $hebrewE âž¡   $greekE\n";

my $copticG = transliterate ( "co", $greek );
my $ethioG  = transliterate ( "et", $greek );
my $greekG  = transliterate ( "el", $greek );
my $hebrewG = transliterate ( "he", $greek );

print "Greek  âž¡ Coptic âž¡ Ge'ez âž¡ Hebrew âž¡ Greek\n";
print "  $greek  âž¡    $copticG âž¡   $ethioG âž¡    $hebrewG âž¡   $greekG\n";

my $copticH = transliterate ( "co", $hebrew );
my $ethioH  = transliterate ( "et", $hebrew );
my $greekH  = transliterate ( "el", $hebrew );
my $hebrewH = transliterate ( "he", $hebrew );

print "Hebrew âž¡ Coptic âž¡ Ge'ez âž¡ Hebrew âž¡ Greek\n";
print "   $hebrew âž¡    $copticH âž¡   $ethioH âž¡    $hebrewH âž¡   $greekH\n";

#
#  mixed script:
#
$word = "አΔמ";

my $copticX = transliterate ( "co", $hebrew );
my $ethioX  = transliterate ( "et", $hebrew );
my $greekX  = transliterate ( "el", $hebrew );
my $hebrewX = transliterate ( "he", $hebrew );

print "Mixed  âž¡ Coptic âž¡ Ge'ez âž¡ Hebrew âž¡ Greek\n";
print "  $word  âž¡    $copticX âž¡   $ethioX âž¡    $hebrewX âž¡   $greekX\n";

__END__

=head1 NAME

transliterate.pl - Demonstration of CEGH Transliteration.

=head1 SYNOPSIS

./transliterate.pl

=head1 DESCRIPTION

This is a simple demonstration script that presents transliterations,
and retransliterations between Coptic, Ethiopic, Greek and Hebrew.


=head1 AUTHOR

Daniel Yacob,  L<dyacob@cpan.org|mailto:dyacob@cpan.org>

=head1 SEE ALSO

L<Convert::CEGH::Gematria>

=cut