>> open(TEMPLATE,"<:encoding(utf-8)", $filepath)
> лучше open(...,'<:utf8',...)
> это значительно быстрее
… тоже значительно ошибочнее. Тебе всегда нужно использовать слой 
:encoding(UTF-8). Он – точный и рассказывает о проблемах; слой :utf8 молчает.

    > perl -E'open my $fh, q(<:encoding(UTF-8)), q(broken-utf-8.txt); <$fh>;'
    utf8 "\xE0" does not map to Unicode at -e line 1.
    > perl -E'open my $fh, q(<:utf8), q(broken-utf-8.txt); <$fh>;'
    > hex broken-utf-8.txt
    0000  d1 84 d1 83 d0 b1 d0 b0  d1 80 e0 d0 ba d0 b2 d1  ........ ........
    0010  83 d0 ba d1 81 0a                                 ......

Это может быть везти опасний ситуации: 
<http://www.perlmonks.org/?node_id=644786>

Attachment: signature.asc
Description: This is a digitally signed message part.

--
Moscow.pm mailing list
[email protected] | http://moscow.pm.org

Ответить