Я некоторое время назад разбирался с unicode и как результат этих разбирательств написал пост — https://ivan.bessarabov.ru/blog/perl-unicode
В посте как раз разбирается что такое use utf8 и говорится про use open. Буду рад если он прольет свет на ваши вопросы =) 2014-05-22 15:24 GMT+04:00 Алексей Мышкин <[email protected]>: > А объяснить? > > > 22 мая 2014 г., 15:16 пользователь Antonio Nikishaev <[email protected]> написал: > >> >> 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 > > > > > -- > С уважением, > Мышкин Алексей. > > -- > Moscow.pm mailing list > [email protected] | http://moscow.pm.org > -- Moscow.pm mailing list [email protected] | http://moscow.pm.org
