ANNOTATION

Lingua::DetectCyrillic. The package detects 7 Cyrillic codings as well as the language - Russian or Ukrainian. Uses embedded frequency dictionaries;
usually one word is enough for correct detection.

INSTALLATION

First, install packages Unicode::Map8 and Unicode::String required by the package (available at www.cpan.org).

Then install as usual:

perl Makefile.PL

• or - perl Makefile.PL PREFIX=/home/mydirectory LIB=/home/mydirectory

make
make test
make install

On win32 platform use Microsoft nmake.exe instead of make (can be downloaded from Microsoft site).

SYNOPSIS

use Lingua::DetectCyrillic;
-or (if you need translation functions) - use Lingua::DetectCyrillic qw ( &TranslateCyr &toLowerCyr &toUpperCyr );

# New class Lingua::DetectCyrillic. By default, not more than 100 Cyrillic # tokens (words) will be analyzed; Ukrainian is not detected. $CyrDetector = Lingua::DetectCyrillic ->new();

# The same but: analyze at least 200 tokens, detect both Russian and # Ukrainian.
$CyrDetector = Lingua::DetectCyrillic ->new( MaxTokens => 200, DetectAllLang => 1 );

# Detect coding and language
my ($Coding,$Language,$CharsProcessed,$Algorithm)= $CyrDetector -> Detect( @Data );

# Write report
$CyrDetector -> LogWrite(); #write to STDOUT $CyrDetector -> LogWrite('report.log'); #write to file

# Translating to Lower case assuming the source coding is windows-1251 $s=toLowerCyr($String, 'win');
# Translating to Upper case assuming the source coding is windows-1251 $s=toUpperCyr($String, 'win');
# Converting from one coding to another # Acceptable coding definitions are win, koi, koi8u, mac, iso, dos, utf $s=TranslateCyr('win', 'koi',$String);