Как избавится от «Wide character in regexp compilation at» в регулярном выражении на русском?

Question

[Алексей Беспалов]

Можно ли избавится от ругательств на регулярное выражение с русскими буквами?

Wide character in regexp compilation at F:/GIT/1c-translation-script/translate-with-dict.pl line 81.
Variable length lookbehind is experimental in regex; marked by <-- HERE in m/(?<=[^╨Р-╤П╤С╨Б]|^)╨Ь╨░╨║╤Б╨╕╨╝╤Г╨╝╨б╨╡╤А╨╕╨╣╨Ъ╨╛╨╗╨╕╤З╨╡╤Б╤В╨▓╨╛(?=[^╨Р-╤П╤С╨Б]|$) <-- HERE / at F:/GIT/1c-
translation-script/translate-with-dict.pl line 81.

$line =~ s/(?<=[^А-яёЁ]|^)$ru(?=[^А-яёЁ]|$)/$en/g;

Все что можно уже объявил

#no warnings;
use utf8;
binmode STDOUT, ':utf8';
binmode STDIN, ':utf8';

Про no warnings знаю, но можно без него или нет?

Comments

[Oleg]

Я делаю так:

`
use strict;
use warnings;
use utf8;
use open qw(:std :utf8);
`

[Алексей Беспалов]

Oleg, это не помогает

[Oleg]

Зачем тут вообще заглядывания? ИМХО, достаточно простых классов.

[Oleg]

При этом Perl ругается только на заглядывание назад

[Алексей Беспалов]

Oleg, простыми классами у меня под замену попадали пробелы табы и т.д. А мне нужно вырезать четко слово и оставить форматирование без изменений.
Если есть проще вариант подскажите я проверю?

[Oleg]

А так: `s/\b$ru\b/$en/g;` ?

[Алексей Беспалов]

Oleg, слушай, я же пробовал так, но что-то меня смутило или VSCode не корректно срабатывал и яотказался от этого варианте.
В итоге обработка этот вариант и отработал корректнее, в случаях когда подобных "WindowsСервер" и быстрее.
11 секунд против 15 по секундомеру.
Спасибо!

[Oleg]

Хотелось бы узнать, а в чём, собственно, задача?

Answer 1

[vreitech]

Попробуй заменить
$line =~ s/(?<=[^А-яёЁ]|^)$ru(?=[^А-яёЁ]|$)/$en/g;
на

$line =~ s/(?<=[^А-яёЁ]|^)$ru(?=[^А-яёЁ]|$)/$en/gu;

Answer 2

[pcdesign]

А если убрать все это

#no warnings;
use utf8;
binmode STDOUT, ':utf8';
binmode STDIN, ':utf8';

И написать так
use open ':std', ':encoding(UTF-8)';