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 <[email protected] <mailto:[email protected]>> написал: On 22 May 2014, at 14:58, Алексей Мышкин <[email protected] <mailto:[email protected]>> 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 [email protected] | http://moscow.pm.org
