On 22 May 2014, at 14:58, Алексей Мышкин <[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
