[Moscow.pm] unicode & regexp

[Алексей Мышкин]

А объяснить?


22 мая 2014 г., 15:16 пользователь Antonio Nikishaev <a на lelf.me> написал:

>
> On 22 May 2014, at 14:58, Алексей Мышкин <parserpro на gmail.com> wrote:
>
> > Всем доброго дня.
> > Есть такой код:
> > #!/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
>
> Писать надо нормально. Всё будет работать
>
> use utf8;
> use open qw<:std :utf8>;
>
>
>
> --
> Moscow.pm mailing list
> moscow-pm на pm.org | http://moscow.pm.org
>



-- 
С уважением,
Мышкин Алексей.
----------- следущая часть -----------
Вложение в формате HTML было извлечено…
URL: <http://mail.pm.org/pipermail/moscow-pm/attachments/20140522/4d0d5ee1/attachment.html>