Вместо: 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 > -- > С уважением, > Мышкин Алексей. >
-- Moscow.pm mailing list [email protected] | http://moscow.pm.org
