[Moscow.pm] Мусор в выводе write()

[Alex Kapranoff]

Я, кстати, не удивлюсь, если окажется, что форматы никто не тестил с
юникодными строками. Они же deprecated уже довольно долго.Попробуйте модуль
Perl6::Form с CPAN.

-- 
Alex Kapranoff.


2009/6/17 Denis Ibaev <dionys на gmail.com>

> Привет.
>
> Есть такой скрипт:
>
> #!/usr/bin/perl
>
> use strict;
> use warnings;
> use utf8;
>
> binmode(DATA, ':utf8');
> binmode(STDOUT, ':utf8');
> write() while (<DATA>);
>
> format STDOUT =
> ^<<<<<<<<<<<<<<<<<<<~~
> $_
> .
>
> __DATA__
> абв где ёжз ийк лмн опр сту фхц чшщ ъыь эюя
>
> Вывод форматируется как и хотелось бы, однако после вывода каждой
> строки дополнительно выводится от одной до нескольких строк всякого
> мусора. Происходит это только при работе с UTF-8. Как с этим бороться?
>
> >perl -v
> This is perl, v5.10.0 built for MSWin32-x86-multi-thread
>
> --
> Денис Ибаев
> --
> Moscow.pm mailing list
> moscow-pm на pm.org | http://moscow.pm.org
>
----------- следущая часть -----------
Вложение в формате HTML было извлечено&hellip;
URL: <http://mail.pm.org/pipermail/moscow-pm/attachments/20090723/00869316/attachment.html>