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;
的“内容”属性
2. 在$ h2;
之后立即在div中添加一个p

Answer 1

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

但正如模块所说，它正在构建中并且“此模块仍在编写中。所记录的方法都按照文档记录（但可能还没有完成jQuery对应端口）。”所以这些方法可能还没有实现。