Исходное сообщение
"regexp  + UTF-8 = не работает" Отправлено oklas, 03-Дек-13 15:53
В перле к строкам прикручены внутренние флаги, в частности есть флаг что строка во внутреннем формате, только с этим форматом нормально работают регулярные выражения и всякие там length и т.п. Большинство проблем с кодировками можно решить придерживаясь например такой схемы работы: use utf8; # предписывает что константы и регулярные выражения, имеющие не-ASCII символы, должны трактоваться как уникодные и приводиться ко внутреннему формату use Encode; # включаем модуль работы с кодировками. $bytes = encode('utf-8', $string); # в байты, (из внутреннего формата) $string = decode('utf-8', $bytes); # преобразовать во внутренний формат ! ВАЖНО, если perl собран и операционная система настроена так, что внутреннее представление переменных в utf-8 и print'ы и прочее выводят в utf-8, то это не значит что не надо пропускать через decode( 'utf-8', ... ), строки пришедшие откуда-то (из socket'а или fcgi, или модуля какого-нибудь и т.п.) то что строка в utf-8 еще не значит что она во внутреннем формате. При работе с файлами можно использовать специальный синтаксис при открытии: open FH, "<:utf8", $filename; # подробнее "perldoc -f open"

Ваше сообщение
Имя*:
EMail:	Для отправки новых сообщений в текущей нити на email укажите знак ! перед адресом, например, !user@host.ru (!! - не показывать email). Более тонкая настройка отправки ответов производится в профиле зарегистрированного участника форума.
Заголовок*:
Сообщение*:	> В перле к строкам прикручены внутренние флаги, в частности есть флаг что > строка во внутреннем формате, только с этим форматом нормально работают регулярные > выражения и всякие там length и т.п. > Большинство проблем с кодировками можно решить придерживаясь например такой схемы работы: > use utf8; # предписывает что константы и регулярные выражения, имеющие не-ASCII символы, > должны трактоваться как уникодные и приводиться ко внутреннему формату > use Encode; # включаем модуль работы с кодировками. > $bytes = encode('utf-8', $string); # в байты, (из внутреннего формата) > $string = decode('utf-8', $bytes); # преобразовать во внутренний формат > ! ВАЖНО, если perl собран и операционная система настроена так, что внутреннее > представление переменных в utf-8 и print'ы и прочее выводят в utf-8, > то это не значит что не надо пропускать через decode( 'utf-8', > ... ), строки пришедшие откуда-то (из socket'а или fcgi, или модуля > какого-нибудь и т.п.) то что строка в utf-8 еще не значит > что она во внутреннем формате. > При работе с файлами можно использовать специальный синтаксис при открытии: > open FH, "<:utf8", $filename; # подробнее "perldoc -f open"
	Введите код, изображенный на картинке: