Привет. Есть такой скрипт:
#!/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 [email protected] | http://moscow.pm.org
