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
