perl - Mojo::DOM 在特定的前一段之后提取段落

Question

只是第一次使用这个 Mojo::DOM 并且无法根据之前的标签提取信息。寻找一种获取“描述”的方法。

#!/usr/bin/perl
require v5.10;
use feature qw(say);
use Mojo::DOM;

my $html = q(<p><strong>Description</strong></p><p>The description</p> <p><strong>Usage</strong></p><p>How to use this tool</p>);

my $dom = Mojo::DOM->new( $html );

say $dom->find('p strong')->map('text')->join("\n"); # Description

Answer 1

要获得第一个，您可以这样做

say $dom->at('p strong')->parent->next->text;

或者得到所有这些

say $dom->find('p strong')->map(sub { $_->parent->next->text })->join("\n");