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
