[Moscow.pm] unicode & regexp

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

 Только не забудьте прагму
#use utf8;
раскомментировать...


Thu, 22 May 2014 20:05:49 +0400 от Илья Винокуров <ilvin на mail.ru>:
>
>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
>>
>
>-- 
>Moscow.pm mailing list
>moscow-pm на pm.org |  http://moscow.pm.org
>

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