[Moscow.pm] unicode & regexp

[Stanislaw Pusep]

Вместо:

use utf8;

Пишем:

use utf8::all;

Почему?

https://metacpan.org/pod/utf8::all

четверг, 22 мая 2014 г. пользователь Алексей Мышкин написал:

> Всем доброго дня.
> Есть такой код:
> #!/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
> --
> С уважением,
> Мышкин Алексей.
>
----------- следущая часть -----------
Вложение в формате HTML было извлечено…
URL: <http://mail.pm.org/pipermail/moscow-pm/attachments/20140522/1855ee78/attachment.html>