[Moscow.pm] unicode & regexp

[Илья Винокуров]

use Encode;
print Encode::encode('UTF-8', $str),"\n";

Не ?


Thu, 22 May 2014 14:58:57 +0400 от Алексей Мышкин <parserpro на gmail.com>:
>Всем доброго дня.
>Есть такой код:
>#!/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
>moscow-pm на pm.org |  http://moscow.pm.org
>

----------- следущая часть -----------
Вложение в формате HTML было извлечено…
URL: <http://mail.pm.org/pipermail/moscow-pm/attachments/20140522/dfd76b0b/attachment.html>