perl html treebuilder не возвращает строку

Question

Когда я использую

my ($key, $seperator, $value) = map $_->as_text, $row->content_list;

, я получаю ужасно неприятные результаты.

$VAR1 = 'Numberáofásourceálines';
$VAR2 = 'á23182';
$VAR3 = 'Htmlágeneratedáat';
$VAR4 = 'áMonáJuná13á11:06:46á2011';
$VAR5 = 'Coverageáview';
$VAR6 = 'áAsáinstrumented';
$VAR7 = 'Symboláfile(s)';

Если я попытаюсь as_html, это более прилично, но нужно разобрать ...

$VAR1 = '<td class="red">TER</td>';
$VAR2 = '<td class="red">&nbsp;<strong>43%</strong>&nbsp;(function)</td>';
$VAR3 = '<td class="black">Threshold&nbsp;percent</td>';
$VAR4 = '<td class="black">&nbsp;<strong>100</strong>&nbsp;%</td>';
$VAR5 = '<td class="black">Number&nbsp;of&nbsp;source&nbsp;lines</td>';
$VAR6 = '<td class="black">&nbsp;23182</td>';

РЕДАКТИРОВАТЬ Неизвестное кодирование слоя PerlIO (cpActive) в строке myscript.pl 27Неизвестный слой PerlIO 'code' в строке myscript.pl 27 Неизвестный слой PerlIO 'page:' в строке myscript.pl 27 Неизвестный слой PerlIO '437)' в строке myscript.pl 27 Не удается найти кодировку "cpActive: code: page:: 437«в строке C: /Perl/lib/open.pm 120. Не удается найти кодировку» cpActive: code: page:: 437 »в строке C: /Perl/lib/open.pm 128.

Answer 1

Ваш неприятный вывод, если в результате вы не правильно закодировали свой текст на выходе. Если вы печатаете в STDOUT, следующее должно помочь:

use open ':std', ':locale';

или в Windows:

sub acp { my ($cp) = `chcp` =~ /([0-9]+)/; $cp }
use open ':std', ':encoding(cp'.acp().')';