如何使用Perl的HTML :: TokeParser从嵌套的divs标签中检索值？

Question

我正在使用HTML :: TokeParser来解析HTML文件并获取div标记内的数据。我的HTML如下：

<div class='t_and_h f_t' id='t_f_i'>
  <div class='icon'>
    <img alt="icon" src=""/>
  </div>
  <div class='t'>
    12:31 PM
  </div>
  <div class='h'>
    <a>Residue 4</a>
  </div>
  <div class='f_t'>
    TRUE
  </div>
</div>

我的代码如下：

while ( $tag = $stream->get_tag('div') ) 
{
    if($tag->[1]{class} eq 't')
    {   
        $time = $stream->get_trimmed_text('</div>');
        print "$time \n";
    }
}

但是输出打印所有字段，即

12:31PM Residue 4 TRUE

我做错了什么？

Answer 1

</div>是外部结束标记。只需将它留在当前的溪流位置即可：

my $time = $stream->get_trimmed_text; 
# 12:31 PM