Только не забудьте прагму #use utf8; раскомментировать...
Thu, 22 May 2014 20:05:49 +0400 от Илья Винокуров <[email protected]>: > >use Encode; >print Encode::encode('UTF-8', $str),"\n"; > >Не ? > > >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
