|
AM::Abbreviate - Expand or Contract Amharic Abbreviations |
AM::Abbreviate - Expand or Contract Amharic Abbreviations
use Lingua::AM::Abbreviate;
while ( $string = <> ) { # some UTF8 string
if ( $contracted = Contract ( $string ) ) {
print "$string => $contracted\n";
} elsif ( $expanded = Expand ( $string ) ) {
print "$string => $expanded\n";
}
}
AM::Abbreviate provides two routines, ``Expand'' and ``Contract'', to assist in Amharic translation or spell checking. Each routine expects an Amharic string in UTF8 encoding as an argument and returns an expansion or contraction if found.
Daniel Yacob, LibEth@EthiopiaOnline.Net
perl(1). Ethiopic(3), http://libeth.netpedia.net|http://libeth.netpedia.net
|
AM::Abbreviate - Expand or Contract Amharic Abbreviations |