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