Проблемы с кодировкой на perl

Тема в разделе "Другие языки", создана пользователем EvLeS, 7 июл 2008.

Статус темы:
Закрыта.
Модераторы: Цукер
  1. EvLeS

    EvLeS Постоялец

    Регистр.:
    21 сен 2007
    Сообщения:
    64
    Симпатии:
    11
    Есть некий скрипт на perl который считывает текст из текстового файла и далее передает через через POST на форму,все работает если текст латинскими буквами,а вместо кирилицы постит вопросики.Проблему можно решить только если файл с текстом сохранть в UTF-8.
    Вопрос, можно ли как решить проблему средствами perl ?(чтобы текстовик был в виндовой кодировке и кирилица бы корректно постилась)
     
  2. B1rdEX

    B1rdEX Постоялец

    Регистр.:
    30 июн 2008
    Сообщения:
    141
    Симпатии:
    26
    А хеадер с кодировкой правильный выводишь?
     
  3. bliss

    bliss Постоялец

    Регистр.:
    29 июн 2008
    Сообщения:
    72
    Симпатии:
    8
    перед тем как постить строку надо конвертнуть в utf.

    PHP:
    use Encode;

    sub toutf8 {
    #takes: $from_encoding, $text
    #returns: $text in utf8
        
    my $encoding shift;
        
    my $text shift;
        if (
    $encoding =~ /utf\-?8/i) {
            return 
    $text;
        }
        else {
            return 
    Encode::encode("utf8"Encode::decode($encoding$text));
        }
    }
     
  4. EvLeS

    EvLeS Постоялец

    Регистр.:
    21 сен 2007
    Сообщения:
    64
    Симпатии:
    11
    Что то не выходит и таким способом,всеравно выдает крякорябы..
     
Статус темы:
Закрыта.