Я думаю смогу объяснить подробно что и почему, про все нюансы. Но я же говорю - не понятно что должно происходить. Выводит в обоих случаях что-то непонятное.
22 мая 2014 г., 16:41 пользователь Алексей Мышкин <[email protected]> написал: > Это не объяснение. Символ-то почему режется? > Ладно бы на "широкий символ" ругнулось - это понятно. Но почему строка > выводится не целиком - вот вопрос. > > > 22 мая 2014 г., 16:26 пользователь [email protected] <[email protected]> > написал: > >> >> 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 > > > > > -- > С уважением, > Мышкин Алексей. > > -- > Moscow.pm mailing list > [email protected] | http://moscow.pm.org > -- Moscow.pm mailing list [email protected] | http://moscow.pm.org
