<div dir="ltr"><div>Всем доброго дня.<br></div><div>Есть такой код:<br>#!/usr/bin/env perl<br>use strict;<br>#use utf8;<br><br>my $BadChars = quotemeta '№«».,';<br><br>my $BadCharsRX = qr/$BadChars/u;<br><br>my $str = '... «»«»';<br>
<br>$str =~ s/([$BadCharsRX])[$BadCharsRX]+/$1/g;<br><br>print "$str\n";<br></div><div>=====cut=====<br><br></div><div>выдаёт ахинею<br></div><div>если сделать так:<br><br></div><div><div><div>my $str = '... №№№ «»«»';<br>
</div><div>то начинает работать.<br><br></div><div>Что за чёрт?<br><br></div><div>Perl v5.14.2<br></div><div>-- <br>С уважением,<br>Мышкин Алексей.
</div></div></div></div>