Lingua::AR::Word - Perl extension to get the stem and ArabTeX encoding of Arabic words
use utf8; use Lingua::AR::Word; my $word=Lingua::AR::Word->new("ARABIC_WORD_IN_UTF8"); open FOUTPUT, ">>:utf8", "output" or die "Cannot create output file: $!\n"; print FOUTPUT $word->get_word(); print FOUTPUT $word->get_stem(); print FOUTPUT $word->get_arabtex(); close FOUTPUT;
In order to work on an Arabic word, you need to create the object Lingua::AR::Word, passing the Arabic word encoded in utf8 to the constructor. You will then be able to get the stem through get_stem(). You will get the ArabTeX translittered form through get_arabtex().
Remember that input-output directly to shell will not be useful as long as your shell doesn't support utf8 encoded characters. In the example above, for example, I piped the output to another file forcing its writing in utf8.
If you also want the translation, check out the Lingua::AR::Db module. You may find more info about ArabTeX encoding at ftp://ftp.informatik.uni-stuttgart.de/pub/arabtex/arabtex.htm
Andrea Benazzo, <email@example.com>
Copyright (c) 2006 Andrea Benazzo. All rights reserved. This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself.