<div dir="ltr">А объяснить?<br></div><div class="gmail_extra"><br><br><div class="gmail_quote">22 мая 2014 г., 15:16 пользователь Antonio Nikishaev <span dir="ltr"><<a href="mailto:a@lelf.me" target="_blank">a@lelf.me</a>></span> написал:<br>
<blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex"><div class="HOEnZb"><div class="h5"><br>
On 22 May 2014, at 14:58, Алексей Мышкин <<a href="mailto:parserpro@gmail.com">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]+/$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>
</div></div>Писать надо нормально. Всё будет работать<br>
<br>
use utf8;<br>
use open qw<:std :utf8>;<br>
<span class="HOEnZb"><font color="#888888"><br>
<br>
<br>
--<br>
Moscow.pm mailing list<br>
<a href="mailto:moscow-pm@pm.org">moscow-pm@pm.org</a> | <a href="http://moscow.pm.org" target="_blank">http://moscow.pm.org</a><br>
</font></span></blockquote></div><br><br clear="all"><br>-- <br>С уважением,<br>Мышкин Алексей.
</div>