[Moscow.pm] unicode & regexp

[Иван Бессарабов]

Я некоторое время назад разбирался с unicode и как результат этих
разбирательств написал пост —
https://ivan.bessarabov.ru/blog/perl-unicode

В посте как раз разбирается что такое use utf8 и говорится про use open.

Буду рад если он прольет свет на ваши вопросы =)

2014-05-22 15:24 GMT+04:00 Алексей Мышкин <parserpro на gmail.com>:
> А объяснить?
>
>
> 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
>
>
>
>
> --
> С уважением,
> Мышкин Алексей.
>
> --
> Moscow.pm mailing list
> moscow-pm на pm.org | http://moscow.pm.org
>