NAME
    cyrillic - Library for fast and easy cyrillic text manipulation

SYNOPSIS
      use cyrillic qw/866 win2dos convert locase upcase detect/;

      print convert( 866, 1251, $str );
      print convert( 'dos','win', \$str );
      print win2dos $str;

DESCRIPTION
    If first import parameter is number of codepage then locale switched to
    they codepage. Specialisation (like 'win2dos') call faster then
    'convert'. Easy adding new charset. For they need only add charset
    string.

FUNCTIONS
      At importing list might be listed named convertors. For Ex.:

      use cyrillic qw/dos2win win2koi mac2dos ibm2dos/;

    convert SRC_CP, DST_CP, [VAR]
    Convert VAR from SRC_CP codepage to DST_CP codepage and returns
    converted string. VAR may be SCALAR or REF to SCALAR. If VAR is REF to
    SCALAR then SCALAR will be converted. If VAR is ommited then $_
    operated. If function called to void context and VAR is not REF then
    result placed to $_.

    upcase CODEPAGE, [VAR]
    Convert VAR to uppercase using CODEPAGE table and returns converted
    string. VAR may be SCALAR or REF to SCALAR. If VAR is REF to SCALAR then
    SCALAR will be converted. If VAR is ommited then $_ operated. If
    function called to void context and VAR is not REF then result placed to
    $_.

    locase CODEPAGE, [VAR]
    Convert VAR to lowercase using CODEPAGE table and returns converted
    string. VAR may be SCALAR or REF to SCALAR. If VAR is REF to SCALAR then
    SCALAR will be converted. If VAR is ommited then $_ operated. If
    function called to void context and VAR is not REF then result placed to
    $_.

    detect ARRAY
    Detect charset of data in ARRAY and returns name of charset. If charset
    name not detected then returns 'eng';

EXAMPLES
      use cyrillic qw/convert locase upcase detect dos2win win2dos/;

      $\ = "\n";
      $_ = "\x8F\xE0\xA8\xA2\xA5\xE2 \xF0\xA6\x88\xAA\x88!";

      print; upcase 866;
      print; dos2win;
      print; win2dos;
      print; locase 866;
      print;
      print detect $_;

      # EQVIVALENT CALLS:

      dos2win( $str );
      $_ = dos2win( $str );

      dos2win( \$str );
      $str = dos2win( $str );

      dos2win();
      dos2win( \$_ );
      $_ = dos2win( $_ );

      # FOR EASY SWITCH LOCALE CODEPAGE

      use cyrillic qw/866/;

      use locale;
      $str =~ /a-/;

      no locale;
      $str =~ /a-/;

AUTHOR
    Albert MICHEEV <Albert@f80.n5049.z2.fidonet.org>

COPYRIGHT
    Copyright (C) 2000, Albert MICHEEV

    This module is free software; you can redistribute it or modify it under
    the same terms as Perl itself.

