[Moscow.pm] unicode & regexp

[Илья Винокуров]

Ну-ну продолжайте и дальше прагмы писать.
Уже количество прагм для utf8 равно количеству строк в скрипте...


Thu, 22 May 2014 20:14:18 +0400 от Antonio Nikishaev <a на lelf.me>:
>
>On 22 May 2014, at 20:05, Илья Винокуров < ilvin на mail.ru > wrote:
>
>> use Encode;
>> print Encode::encode('UTF-8', $str),"\n";
>> 
>> Не ?
>
>Не.  У нас тут 2014.
>
>
>
>> 
>> Thu, 22 May 2014 14:58:57 +0400 от Алексей Мышкин < parserpro на gmail.com >:
>> Всем доброго дня.
>> Есть такой код:
>> #!/usr/bin/env perl
>> use strict;
>> #use utf8;
>> 
>> my $BadChars = quotemeta '№«».,';
>> 
>> my $BadCharsRX = qr/$BadChars/u;
>> 
>> my $str = '... «»«»';
>> 
>> $str =~ s/([$BadCharsRX])[$BadCharsRX]+/$1/g;
>> 
>> print "$str\n";
>> =====cut=====
>> 
>> выдаёт ахинею
>> если сделать так:
>> 
>> my $str = '... №№№ «»«»';
>> то начинает работать.
>> 
>> Что за чёрт?
>> 
>> Perl v5.14.2
>> -- 
>> С уважением,
>> Мышкин Алексей.
>> -- 
>> Moscow.pm mailing list
>>  moscow-pm на pm.org |  http://moscow.pm.org
>> 
>> 
>> -- 
>> Moscow.pm mailing list
>>  moscow-pm на pm.org |  http://moscow.pm.org
>
>-- 
>Moscow.pm mailing list
>moscow-pm на pm.org |  http://moscow.pm.org
>

----------- следущая часть -----------
Вложение в формате HTML было извлечено…
URL: <http://mail.pm.org/pipermail/moscow-pm/attachments/20140523/8c51d4bd/attachment.html>