%Descriptions=( "iso-8859-1" => "Iso-8859-1 - Западноевропейская кодировка. Кириллица не обнаружена.", "windows-1251" => "Cp1251 - Кодировка MS Windows. Также: Windows Cyrillic (Slavic), Cyrillic. Синонимы: x-cp1251, windows-1251", "koi8-r" => "Koi8-r - Кодировка Unix. Синонимы: csKOI8R, koi", "koi8-u" => "Koi8-u - Кодировка Unix (украинская).", "cp866" => "Cp866 - Кодировка DOS и OS/2. Также: MS-DOS Russian, MS-DOS Cyrillic CIS 1. Синонимы: cp866, ibm866", "iso-8859-5" => "Iso-8859-5 - кодировка кириллицы, одобренная ISO. Используется на некоторых системах Unix. Синонимы: iso-8859-5, csISOLatinCyrillic, cyrillic, iso-ir-144, ISO_8859-5, ISO_8859-5:1988", "utf-8" => "Utf-8 - Unicode с символами кириллицы. Синонимы: utf-8, unicode-1-1-utf-8, unicode-2-0-utf-8, x-unicode-2-0-utf-8", "x-mac-cyrillic" => "x-mac-cyrillic - Кириллица на Macintosh. Поддерживается под Windows NT+." ); $Description = $Descriptions{$Charset}; print < $DocTitle

Кодировка: $Charset, язык: $Language

Ваш текст в различных кодировках:
Исходный текст $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
Время, использованное для определения: $timedf
Результаты анализа
Проанализированных символов:$CharsProcessed
Кодировка:$Coding
Описание:$Description
Язык:$Language
Алгоритм:$Algorithm

Объяснение кодов алгоритма
11Формальный анализ количества/капитализации кириллических символов; найдена только одна альтернатива
21Формальный анализ количества/капитализации кириллических символов; найдены две альтернативы (koi8-r и koi8-u); выбрана koi8-r
22Формальный анализ количества/капитализации кириллических символов; найдены две альтернативы (win1251 и mac); выбрана win1251
31Найдено по меньшей мере одно слово из словаря и есть только одна альтернатива
32Найдено по меньшей мере одно слово из хэша и есть только одна альтернатива
33Формально определена win1251 (скорее всего на базе анализа хэша)
34Формально определена koi8-r (скорее всего на базе анализа хэша)
40Был выбран наиболее вероятный результат, но надежность очень невелика
100Не найдено ни одного кириллического символа
POD __END__ print "
This is the report:
\n";
$CyrDetector -> LogWrite();
print "
\n"; print "";