<div dir="ltr"><div>Это не объяснение. Символ-то почему режется?<br></div>Ладно бы на "широкий символ" ругнулось - это понятно. Но почему строка выводится не целиком - вот вопрос.<br></div><div class="gmail_extra">
<br><br><div class="gmail_quote">22 мая 2014 г., 16:26 пользователь <a href="mailto:devrow@gmail.com">devrow@gmail.com</a> <span dir="ltr"><<a href="mailto:devrow@gmail.com" target="_blank">devrow@gmail.com</a>></span> написал:<br>
<blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex"><a href="http://stackoverflow.com/questions/6162484/why-does-modern-perl-avoid-utf-8-by-default/6163129#6163129" target="_blank">http://stackoverflow.com/<u></u>questions/6162484/why-does-<u></u>modern-perl-avoid-utf-8-by-<u></u>default/6163129#6163129</a><div class="">
<br>
<br>
On 22.05.2014 15:24, Алексей Мышкин wrote:<br>
</div><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex"><div class="">
А объяснить?<br>
<br>
<br>
22 мая 2014 г., 15:16 пользователь Antonio Nikishaev <<a href="mailto:a@lelf.me" target="_blank">a@lelf.me</a><br></div>
<mailto:<a href="mailto:a@lelf.me" target="_blank">a@lelf.me</a>>> написал:<div class=""><br>
<br>
<br>
    On 22 May 2014, at 14:58, Алексей Мышкин <<a href="mailto:parserpro@gmail.com" target="_blank">parserpro@gmail.com</a><br></div><div class="">
    <mailto:<a href="mailto:parserpro@gmail.com" target="_blank">parserpro@gmail.com</a>>> wrote:<br>
<br>
     > Всем доброго дня.<br>
     > Есть такой код:<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]<u></u>+/$1/g;<br>
     ><br>
     > print "$str\n";<br>
     > =====cut=====<br>
     ><br>
     > выдаёт ахинею<br>
     > если сделать так:<br>
     ><br>
     > my $str = '... №№№ «»«»';<br>
     > то начинает работать.<br>
     ><br>
     > Что за чёрт?<br>
     ><br>
     > Perl v5.14.2<br>
<br>
    Писать надо нормально. Всё будет работать<br>
<br>
    use utf8;<br>
    use open qw<:std :utf8>;<br>
</div></blockquote><div class="HOEnZb"><div class="h5">
-- <br>
Moscow.pm mailing list<br>
<a href="mailto:moscow-pm@pm.org" target="_blank">moscow-pm@pm.org</a> | <a href="http://moscow.pm.org" target="_blank">http://moscow.pm.org</a><br>
</div></div></blockquote></div><br><br clear="all"><br>-- <br>С уважением,<br>Мышкин Алексей.
</div>