<HTML><BODY><br>Ну-ну продолжайте и дальше прагмы писать.<br>Уже количество прагм для utf8 равно количеству строк в скрипте...<br><br><br>Thu, 22 May 2014 20:14:18 +0400 от Antonio Nikishaev <a@lelf.me>:<br>
<blockquote style="border-left:1px solid #0857A6; margin:10px; padding:0 0 0 10px;">
<div id="">
<div class="js-helper js-readmsg-msg">
<style type="text/css"></style>
<div>
<base target="_self" href="https://e.mail.ru/">
<div id="style_14007753570000000429_BODY"><br>
On 22 May 2014, at 20:05, Илья Винокуров <<a href="/compose?To=ilvin@mail.ru">ilvin@mail.ru</a>> wrote:<br>
<br>
> use Encode;<br>
> print Encode::encode('UTF-8', $str),"\n";<br>
> <br>
> Не ?<br>
<br>
Не. У нас тут 2014.<br>
<br>
<br>
<br>
> <br>
> Thu, 22 May 2014 14:58:57 +0400 от Алексей Мышкин <<a href="/compose?To=parserpro@gmail.com">parserpro@gmail.com</a>>:<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>
> С уважением,<br>
> Мышкин Алексей.<br>
> -- <br>
> Moscow.pm mailing list<br>
> <a href="/compose?To=moscow%2dpm@pm.org">moscow-pm@pm.org</a> | <a href="http://moscow.pm.org" target="_blank">http://moscow.pm.org</a><br>
> <br>
> <br>
> -- <br>
> Moscow.pm mailing list<br>
> <a href="/compose?To=moscow%2dpm@pm.org">moscow-pm@pm.org</a> | <a href="http://moscow.pm.org" target="_blank">http://moscow.pm.org</a><br>
<br>
-- <br>
Moscow.pm mailing list<br>
<a href="/compose?To=moscow%2dpm@pm.org">moscow-pm@pm.org</a> | <a href="http://moscow.pm.org" target="_blank">http://moscow.pm.org</a><br>
<br>
</div>
<base target="_self" href="https://e.mail.ru/">
</div>
</div>
</div>
</blockquote>
<br></BODY></HTML>