2

Есть файл в кодировке UTF-8, содержащий строки на русском, английском и всякий мусор. Надо вывести только строки, в которых есть русские буквы. Вот это не работает:

use utf 8;

#... Тут в цикле каждую строку кидаю в $s_str ...
if ($s_str =~ /[А-Я,а-я]/)
{
    print($s_str);
}

Решено добавлением в начало скрипта:

use open qw(:utf8);
binmode(STDIN,':utf8');
binmode(STDOUT,':utf8');
4
  • 1
    Попробуйте use open qw(:utf8); и возможно придется делать binmode(STDIN,':utf8'); ну или для того дескриптора через который вы файл читаете.
    – Mike
    7 янв 2016 в 17:41
  • С этим работает, но несмотря на binmode(STDIN,':utf8'); ругается каждый раз Wide character in print at...
    – Daniel N.
    7 янв 2016 в 17:49
  • 2
    Раз wide in print - то binmode(STDOUT,':utf8');
    – Mike
    7 янв 2016 в 19:24
  • Спасибо, это помогло.
    – Daniel N.
    8 янв 2016 в 6:47

1 ответ 1

1

Perl'у надо явно сообщить, что вы будете работать с файлами в кодировке UTF-8. На некоторых системах он сам это знает из текущих переменных окружения. Но лучше перестраховаться и задать:

use open qw(:utf8);      # считать открываемые файлы в кодировке utf-8
binmode(STDOUT,':utf8'); # при выводе на консоль так же использовать utf-8
1
  • Про binmode(STDOUT,':utf8'); не знал, теперь все работает.
    – Daniel N.
    8 янв 2016 в 6:51

Ваш ответ

Нажимая на кнопку «Отправить ответ», вы соглашаетесь с нашими пользовательским соглашением, политикой конфиденциальности и политикой о куки

Всё ещё ищете ответ? Посмотрите другие вопросы с метками или задайте свой вопрос.