%Descriptions=( "iso-8859-1" => "Iso-8859-1 - Western coding. Cyrillic characters not detected.", "windows-1251" => "Cp1251 - MS Windows coding. Also: Windows Cyrillic (Slavic), Cyrillic. Synonims: x-cp1251, windows-1251", "koi8-r" => "Koi8-r - Cyrillic Unix coding. Synonims: csKOI8R, koi", "koi8-u" => "Koi8-u - Cyrillic Unix coding (Ukrainian).", "cp866" => "Cp866 - Cyrillic DOS and OS/2 coding. Also: MS-DOS Russian, MS-DOS Cyrillic CIS 1. Synonims: cp866, ibm866", "iso-8859-5" => "Iso-8859-5 - Cyrillic coding approved by ISO. Used on rare Unix systems. Synonims: iso-8859-5, csISOLatinCyrillic, cyrillic, iso-ir-144, ISO_8859-5, ISO_8859-5:1988", "utf-8" => "Utf-8 - Unicode with Cyrillica. Synonims: utf-8, unicode-1-1-utf-8, unicode-2-0-utf-8, x-unicode-2-0-utf-8", "x-mac-cyrillic" => "x-mac-cyrillic - Cyrillic Macintosh. Supported by Windows NT+." ); $Description = $Descriptions{$Charset}; print < $DocTitle

Coding: $Charset, Language: $Language

Your text in different codings:
Current $Text_area
windows-1251 $Text_area_win
x-mac-cyrillic $Text_area_mac
koi8-r $Text_area_koi8r
koi8-u $Text_area_koi8u
utf-8 $Text_area_utf
cp866 $Text_area_cp866
iso-8859-5 $Text_area_iso
MaxTokens: $MaxTokens
DetectAllLang: $DetectAllLang
Time used for detecting: $timedf
Analysis results
Number of characters analyzed:$CharsProcessed
Charset detected:$Coding
Description:$Description
Language:$Language
Algorithm:$Algorithm

Algorithm codes explanation
11Formal analysis of quantity/capitalization of Cyrillic characters; only one alternative found
21Formal analysis of quantity/capitalization of Cyrillic characters; two alternatives found (koi8-r and koi8-u); koi8-r chosen
22Formal analysis of quantity/capitalization of Cyrillic characters; two alternatives found (win1251 and mac); win1251 chosen
31At least one word from the dictionary found and there is only one alternative
32At least one hash from the hash dictionary found and there is only one alternative
33Formally win1251 defined (most probably on analysis of hash)
34Formally koi8-r defined (most probably on analysis of hash)
40Most probable results were chosen, but reliability is very low
100No single Cyrillic character detected
POD __END__ print "
This is the report:
\n";
$CyrDetector -> LogWrite();
print "
\n"; print "";