Я, кстати, не удивлюсь, если окажется, что форматы никто не тестил с юникодными строками. Они же deprecated уже довольно долго.<div>Попробуйте модуль Perl6::Form с CPAN.<br><div><br clear="all">-- <br>Alex Kapranoff.<br>
<br><br><div class="gmail_quote">2009/6/17 Denis Ibaev <span dir="ltr">&lt;<a href="mailto:dionys@gmail.com">dionys@gmail.com</a>&gt;</span><br><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex;">

Привет.<br>
<br>
Есть такой скрипт:<br>
<br>
#!/usr/bin/perl<br>
<br>
use strict;<br>
use warnings;<br>
use utf8;<br>
<br>
binmode(DATA, &#39;:utf8&#39;);<br>
binmode(STDOUT, &#39;:utf8&#39;);<br>
write() while (&lt;DATA&gt;);<br>
<br>
format STDOUT =<br>
^&lt;&lt;&lt;&lt;&lt;&lt;&lt;&lt;&lt;&lt;&lt;&lt;&lt;&lt;&lt;&lt;&lt;&lt;&lt;~~<br>
$_<br>
.<br>
<br>
__DATA__<br>
абв где ёжз ийк лмн опр сту фхц чшщ ъыь эюя<br>
<br>
Вывод форматируется как и хотелось бы, однако после вывода каждой<br>
строки дополнительно выводится от одной до нескольких строк всякого<br>
мусора. Происходит это только при работе с UTF-8. Как с этим бороться?<br>
<br>
&gt;perl -v<br>
This is perl, v5.10.0 built for MSWin32-x86-multi-thread<br>
<br>
--<br>
Денис Ибаев<br>
<font color="#888888">--<br>
Moscow.pm mailing list<br>
<a href="mailto:moscow-pm@pm.org">moscow-pm@pm.org</a> | <a href="http://moscow.pm.org" target="_blank">http://moscow.pm.org</a><br>
</font></blockquote></div><br></div></div>