[Moscow.pm] unicode & regexp
Antonio Nikishaev
a на lelf.me
Чт Май 22 04:16:50 PDT 2014
On 22 May 2014, at 14:58, Алексей Мышкин <parserpro at 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