[Moscow.pm] unicode & regexp
devrow на gmail.com
devrow на gmail.com
Чт Май 22 05:26:14 PDT 2014
http://stackoverflow.com/questions/6162484/why-does-modern-perl-avoid-utf-8-by-default/6163129#6163129
On 22.05.2014 15:24, Алексей Мышкин wrote:
> А объяснить?
>
>
> 22 мая 2014 г., 15:16 пользователь Antonio Nikishaev <a на lelf.me
> <mailto:a на lelf.me>> написал:
>
>
> On 22 May 2014, at 14:58, Алексей Мышкин <parserpro на gmail.com
> <mailto: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