Разбор HTML с HTML::TreeBuilder

Question

Я хочу проанализировать HTML-страницу. Извлеките значок, описание и тип значка с помощью

      <div class="row">
       <div class="span8">
         <table id="badge-list">
           <tr>
             <td style="width: 25px;"></td>
             <td style="width: 200px;" class="badge-cell">
                <a class="badge-name" href="/badge/show/3/">
                    <span class="badge-icon bronze">&#8226;</span>
                     Editor
                </a>
                <span class="multiplier">x 3892</span></td>
              <td class="earned False">&nbsp;</td>
              <td>First edit</td>
           </tr>

мой Perl-код выглядит следующим образом,

я пытаюсь извлечь a class="badge-name" и другие детали, используя код ниже

      my $tree = HTML::TreeBuilder->new();
      $tree->parse($content);
      my ($h1) = $tree->look_down('_tag', 'table', 'id', 'badge-list'); 
      my @tr = $h1->look_down('_tag', 'tr') ;

      foreach my  $tr (@tr) {
         my @tdList = $tr->look_down('_tag','td');

         foreach my $td ( @tdList) {
           if (my $a = $td->look_down('_tag','a')) {
               print $a->as_text , "\n";
               my $span = $a->look_down('_tag','span', 'class');
               print $span->attr('class');
           }
           else {
               my $text =  $td->as_text , "\n";    
               print "$text\n";
           }
      }

    }

Этот код выдает предупреждение Wide character in print at ..

Answer 1

look_down требуются пары параметров атрибут / значение.

$a->look_down('_tag','span', 'class')

должно быть просто

$a->look_down('_tag','span')

Answer 2

Я бы предложил добавить "использовать utf8;" в начале скрипта, чтобы добавить поддержку не ASCII символов в печати. Символ * обязательно широк.

use utf8;