view release on metacpan or  search on metacpan

lib/Lingua/KO/Munja.pod  view on Meta::CPAN

=encoding utf-8

=head1 NAME

Lingua::KO::Munja - Korean letter conversion

=head1 SYNOPSIS

    
    use utf8;
    use Lingua::KO::Munja qw/roman2hangul hangul2roman/;
    my $roman = hangul2roman ('유사쿠');
    my $hangul = roman2hangul ('yusaku');
    print "$roman $hangul\n";


produces output
    yusaku 유사쿠


(This example is included as L<F<synopsis.pl>|https://fastapi.metacpan.org/source/BKB/Lingua-KO-Munja-0.08/examples/synopsis.pl> in the distribution.)

=head1 VERSION

This documents Lingua::KO::Munja version 0.08
corresponding to git commit L<4410ddcb7488a016bdef34b1699db70dd8316542|https://github.com/benkasminbullock/Lingua-KO-Munja/commit/4410ddcb7488a016bdef34b1699db70dd8316542> released on Fri Oct 5 11:07:49 2018 +0900.

=head1 DESCRIPTION

Inputs and outputs are in Perl's Unicode formulation.

This is a companion of L<Lingua::JA::Moji>.

=head1 FUNCTIONS

=head2 roman2hangul

    my $hangul = roman2hangul ('munja');

Convert romanized Korean to hangul.

=head2 hangul2roman

    my $roman = hangul2roman ('문자');

Convert hangul to romanized Korean.

=head1 EXTENDED EXAMPLES

    
    use Data::Kanji::Kanjidic ':all';
    use Lingua::KO::Munja ':all';
    my $k = parse_kanjidic ('/home/ben/data/edrdg/kanjidic');
    my @o = kanjidic_order ($k);
    my $max = 10;
    for my $kanji (@o[0..$max]) {
        my $entry = $k->{$kanji};
        my $korean = $entry->{W};
        if (! $korean) {
            next;
        }
        my @hangul = map {roman2hangul ($_)} @$korean;
        print "$kanji: @hangul\n";
    }


produces output
    亜: 아
    å”–: ì•„
    娃: 왜 와
    阿: 아 옥
    å“€: ì• 
    æ„›: ì• 
    挨: 애
    姶: 압
    逢: 봉
    葵: 규
    茜: 천


(This example is included as L<F<kanji2hanja.pl>|https://fastapi.metacpan.org/source/BKB/Lingua-KO-Munja-0.08/examples/kanji2hanja.pl> in the distribution.)

=head1 SEE ALSO

=head2 Other CPAN modules

=over

=item L<Lingua::JA::Moji/kana2hangul>