open(STDOUT, "| iconv -f $codexml -t $codepage");
select(STDOUT); $| = 1;
Убрал переопределение STDOUT, добавил рекурсивное перекодирование структуры - теперь можно наслаждаться пустыми логами.
P.S. Если из строки нужно убрать лишние (или служебные) символы вывод которых вызывает предупреждение "Wide character in print", то для этих целей можно использовать:
$value =~ s/[^[:ascii:]]+//g;
Комментариев нет:
Отправить комментарий