html - Perl - 使用 pQuery 添加和修改 HTML

Question

我只是一个业余爱好者 Perl 程序员，学习 pQuery 并使用本地 HTML 文件来帮助这个过程。这是我到目前为止所拥有的：

        use strict;
        use warnings;

        use pQuery;

        my $filename = 'learn.html';
        my $file = pQuery($filename);

        my $metadesc = pQuery("meta", $file)->eq(2);
        my $title = $file->find('title');
        my $h1 = $file->find('h1')->find('a');
        my $h2 = $file->find('h2')->eq(0);

        $title->html('New Title');
        $h1->html('New Heading');
        $h2->html('New Sub-Heading');

但是，我遇到了一些困难，无法完全确定下一步该做什么。我想做的事：

1. 修改$metadesc的“Content”属性；
2. 在 $h2; 之后立即在 div 中添加 ap；

Answer 1

如果是 jQuery，我会说 1. 使用 .attr() 方法更新 $metadesc 的属性和 2. 使用 insertAfter 方法。

但正如该模块所说，它正在建设中并且“这个模块仍在编写中。记录的方法都按照记录的方式工作（但可能还没有完成它们的 jQuery 对应物的端口）。” 所以这些方法可能还没有实现。