Ну-ну продолжайте и дальше прагмы писать. Уже количество прагм для utf8 равно количеству строк в скрипте...
Thu, 22 May 2014 20:14:18 +0400 от Antonio Nikishaev <[email protected]>: > >On 22 May 2014, at 20:05, Илья Винокуров < [email protected] > wrote: > >> use Encode; >> print Encode::encode('UTF-8', $str),"\n"; >> >> Не ? > >Не. У нас тут 2014. > > > >> >> Thu, 22 May 2014 14:58:57 +0400 от Алексей Мышкин < [email protected] >: >> Всем доброго дня. >> Есть такой код: >> #!/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 >> >> >> -- >> 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
