File Coverage

lib/Convert/Dayi.pm

Criterion	Covered	Total	%
statement	53	54	98.1
branch	13	14	92.8
condition			n/a
subroutine	11	11	100.0
pod	2	6	33.3
total	79	85	92.9

package Convert::Dayi;

use utf8;
use warnings;
use strict;

=encoding utf8

=head1 NAME

Convert::Dayi - Dayi Convention Module

=head1 VERSION

Version 0.05

=cut

our $VERSION = '0.05';
use Exporter;
our @ISA = qw(Exporter);
our @EXPORT_OK = qw(as_ascii as_dayi from_ascii);

=head1 SYNOPSIS

    use utf8;  # you will need this
    use Convert::Dayi qw(as_ascii as_dayi from_ascii);

    print as_ascii("大易中文")    # v db/ o1 kx

    print as_dayi("大易中文")     # 禾 日馬竹 口言 立水

for from_ascii function , you need to provide index (start from 1)

    print from_ascii('v1 db/1')   # 大易

    print from_ascii('v db/')   # 大易  (if the word is not defined , select index 1 by default)

to translate chinese from STDIN:

    #!/usr/bin/env perl
    use utf8;
    use Convert::Dayi qw(as_ascii);
    use Encode;
    while(  ) {
        my $word = Encode::decode_utf8( $_ );
        print as_ascii( $word );
    }

=head1 DESCRIPTION

L module provides a way to convert chinese words to ascii code by Input Method Keys.

You can also convert the keycode to chinese back.

=head1 EXPORT

=head1 FUNCTIONS

=cut

our %KEYS = ();
our %KEYS_REV = ();
our %WORDS = ();
our %WORDS_REV = ();

INIT {
    init();
}

sub init  {
    init_keys();
    init_words();
}

sub init_keys {
    while(  ) {
        if( /^KEYPROMPT\((.)\):\s+(.)/ ) {
            $KEYS{ $1 } = $2;
            $KEYS_REV{ $2 } = $1;
        }
        elsif( /BEGINDICTIONARY/ ) {
            last;
        }
    }

}

sub init_words {
    while(  ) {
        if( $_ !~ m/^#/ ) {
            my ($key,$word) = split /\s/;
            $WORDS{ $word } = $key;
            my $key_index = 0;
            while( defined( $WORDS_REV{ $key . ++$key_index } ) ) { }
            $WORDS_REV{ $key . $key_index } = $word;
        }
    }
}

# must provide index
=head2 from_ascii

=cut

sub from_ascii {
    my $string = shift;
    my $out = '';
    for( split /\s/,$string ) {
        if( defined $WORDS_REV{$_} ) {
            $out .= $WORDS_REV{$_};
        }
        elsif( defined $WORDS_REV{$_ . '1' } ) {
            $out .= $WORDS_REV{$_ . '1'};  # try index 1
        }
        else {
            $out .= $_;
        }
    }
    return $out;
}

=head2 as_dayi

=cut

sub as_dayi {
    my $string = shift;
    my $out = '';
    while( $string =~ /(.)/g ) {
        my $word = $1;

        if( defined $WORDS{$word} ) {
            my $keys = $WORDS{ $word } ;
            for ( split //,$keys ) {
                $out .= $KEYS{ $_ };
            }
            $out .= ' ';
        }
        else {
            $out .= $word;
        }
    }
    return $out;
}

=head2 as_ascii

=cut

sub as_ascii {
    my $string = shift;
    my $out = '';
    while( $string =~ /(.)/g ) {
        my $word = $1;
        if( defined $WORDS{$word} ) {
            $out .= $WORDS{$word} . " ";
        }
        else {
            $out .= $word;
        }
    }
    return $out;
}


=head1 AUTHOR

Cornelius, C<<  >>

=head1 BUGS

Please report any bugs or feature requests to C, or through
the web interface at L.  I will be notified, and then you'll
automatically be notified of progress on your bug as I make changes.




=head1 SUPPORT

You can find documentation for this module with the perldoc command.

    perldoc Convert::Dayi


You can also look for information at:

=over 4

=item * RT: CPAN's request tracker

L

=item * AnnoCPAN: Annotated CPAN documentation

L

=item * CPAN Ratings

L

=item * Search CPAN

L

=back


=head1 ACKNOWLEDGEMENTS


=head1 COPYRIGHT & LICENSE

Copyright 2009 Cornelius, all rights reserved.

This program is free software; you can redistribute it and/or modify it
under the same terms as Perl itself.


=cut

1; # End of Convert::Dayi
__DATA__