#!/usr/bin/perl -w
binmode
(STDOUT,
":utf8"
);
my
$string
=
"([=አ=])ለም[=ጸ=][=ሃ=]ይ"
;
my
$am
= Regexp::Ethiopic::Amharic::getRe (
$string
);
my
$ti
= Regexp::Ethiopic::Tigrigna::getRe (
$string
);
my
$gz
= Regexp::Ethiopic::Geez::getRe (
$string
);
print
"The expected expansion for $string in Amharic\n"
;
print
" is: ([አዓዐኣ])ለም[ጸፀ][ሀሃሐሓኀኃኻ]ይ\n"
;
print
"got: $am\n\n"
;
print
"The expected expansion for $string in Tigrigna\n"
;
print
" is: ([አኣ])ለም[ጸፀ][ሀሃኀኃ]ይ\n"
;
print
"got: $ti\n\n"
;
print
"The expected expansion for $string in Ge'ez\n"
;
print
" is: ([አኣ])ለም[ሀሃ]ይ\n"
;
print
"got: $gz\n"
;