Есть файл в кодировке UTF-8, содержащий строки на русском, английском и всякий мусор. Надо вывести только строки, в которых есть русские буквы. Вот это не работает:
use utf 8;
#... Тут в цикле каждую строку кидаю в $s_str ...
if ($s_str =~ /[А-Я,а-я]/)
{
print($s_str);
}
Решено добавлением в начало скрипта:
use open qw(:utf8);
binmode(STDIN,':utf8');
binmode(STDOUT,':utf8');
use open qw(:utf8);
и возможно придется делатьbinmode(STDIN,':utf8');
ну или для того дескриптора через который вы файл читаете.binmode(STDIN,':utf8');
ругается каждый разWide character in print at...
binmode(STDOUT,':utf8');