if (!$enstring or !$cfrom or !$cto) {return 0}

  else {

    if ($cfrom ne "" and $cto ne "lc" and $cto ne "uc") {

      $_ = $enstring;$cfrom = $codefunk{$cfrom};$cto = $codefunk{$cto};

      eval "tr/$cfrom/$cto/"; return $_;

    }

    elsif (($cfrom ne "") and ($cto eq "lc" or $cto eq "uc")) {

      $_ = $enstring; $cfrom = $codefunk{"$cfrom\_$cto"};

      eval $cfrom; return $_;

    }

  }

  return $enstring;

}

Если вы не поняли, как это работает, поясню. Данный пример скачивает с почтового ящика все письма, обрабатывает их и передает системе управления базами данных либо куда-то еще. Этот код является основой описываемой технологии. Как я и обещал, соблюдена полная кросс-платформенность между Windows и UNUX-системами. Все используемые в скрипте библиотеки легко доступны.

От редактора: в процессе редактирования статьи было замечено, что тот же самый Outlook Express нечасто кодирует русские буквы в заголовках сообщений. Все это, конечно, зависит от настроек, но мало кто из пользователей Outlook занимается дотошной настройкой своего почтового клиента.

Поэтому процедура xcode при работе с такими заголовками не диагностировала необходимость перекодирования. Немного подумав, была придумана небольшая модификация. Это не панацея, а скромная попытка перекрыть некоторые проблемы – угадать кодировку KOI8-R в заголовке. Для этого внесем только одну коррективу в процедуру xcode – чуть усилим проверку:

    # закомментируем строку, возвращающую неизмененный

    # заголовок и продолжим проверку:

    # return $src unless ($charsets{lc($charset)});

    unless ($charsets{lc($charset)})

      {

    # если кодировка неопределенна, считаем вхождение

    # больших и маленьких русских букв

      $upper = "ЁЙЦУКЕНГШЩЗХЪФЫВАПРОЛДЖЭЯЧСМИТЬБЮ";

      $lower = "ёйцукенгшщзхъфывапролджэячсмитьбю";