如何使用Perl'；从嵌套的divs标记中检索值；s HTML:：语法分析器？

我正在使用HTML:：tokenparser解析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";
    }
}

我做错了什么？

是外部结束标记。只需将其保留在当前流位置，即可：

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

---

向我们展示完整的程序，让我们知道在这段代码之前发生了什么。：）

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