Perl - Add and Modify HTML with pQuery

manpreet Best Answer 2 years ago

I'm just a hobbyist Perl programmer learning pQuery and using a local HTML file to aid the process. Here is what I have so far:

        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');

However, I've hit a bit of a wall and can't quite work out what to do next. What I'd like to do:

1. Modify the "Content" attribute of $metadesc;
2. Add a p inside a div immediately after $h2;