DYACOB / Regexp-Ethiopic-0.21 / examples / asfunction.pl 

            

              
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
—
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49

              
#!/usr/bin/perl -w
require Regexp::Ethiopic::Amharic;
use strict;
use utf8;
binmode(STDOUT, ":utf8");
my $string = "([=አ=])ለም[=ጸ=][=ሃ=]ይ";
my $re = Regexp::Ethiopic::Amharic::getRe ( $string );
print "The expected expansion for $string\n";
print " is: ([አዓዐኣ])ለም[ጸፀ][ሀሃሐሓኀኃኻ]ይ\n";
print "got: $re\n";
my $test = "ዓለምፀሐይ";
print "The test string \"$test\" should be matched by the RE...\n";
if ( $test =~ /$re/ ) {
        print "  It matches! The test is a success.\n";
}
else {
        print "  Does NOT match! The test has failed :(\n";
}
__END__
=head1 NAME
asfunction.pl - Test Ethiopic RE String Generation.
=head1 SYNOPSIS
./asfunction.pl
=head1 DESCRIPTION
A demonstrator script to illustrate regular expressions for Amharic.
=head1 AUTHOR
Daniel Yacob,  L<dyacob@cpan.org|mailto:dyacob@cpan.org>
=cut