Я, кстати, не удивлюсь, если окажется, что форматы никто не тестил с юникодными строками. Они же deprecated уже довольно долго.Попробуйте модуль Perl6::Form с CPAN.
-- Alex Kapranoff. 2009/6/17 Denis Ibaev <dio...@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 >
-- Moscow.pm mailing list moscow-pm@pm.org | http://moscow.pm.org