Mojo::DOM 在特定上一段之后提取段落答案

【问题标题】：Mojo::DOM extract paragraph after specific previous paragraphMojo::DOM 在特定上一段之后提取段落
【发布时间】：2020-10-01 08:56:04
【问题描述】：

第一次使用这个 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

【问题讨论】：

标签： perl mojo-dom

【解决方案1】：

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

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

或者全部获取

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

【讨论】：

感谢您的帮助。我最终使用了类似的东西：for my $e (Mojo::DOM->new($data)->find('a, p strong, p')->each) { say $e->all_text;}