in reply to Re^2: How to extract a pattern in Perl regex?
in thread How to extract a pattern in Perl regex?

Using Mojo::DOM (pulling live data use Mojo::UserAgent):

#!/usr/bin/perl

use strict;
use warnings;
use feature 'say';
use Mojo::Util 'trim';
use Mojo::UserAgent;

# get perlmonks
my $ua = Mojo::UserAgent->new;
my $dom = $ua->get('https://perlmonks.org')->res->dom;

say 'Title: ' . trim( $dom->at('title')->text );
say 'Image src: ' . trim( $dom->at('img')->attr->{'src'} );
say 'Image alt: ' . trim( $dom->at('img')->attr->{'alt'} );

[download]

Output:

Title: PerlMonks - The Monastery Gates
Image src: //promote.pair.com/i/pair-banner-current.gif
Image alt: Beefy Boxes and Bandwidth Generously Provided by pair Netwo
+rks

[download]

Mojo::DOM makes parsing fun and simple.

Replies are listed 'Best First'.
Re^4: How to extract a pattern in Perl regex?
by haukex (Archbishop) on May 02, 2020 at 09:23 UTC
    Mojo::DOM makes parsing fun and simple.

    Agreed, and ojo makes it even more fun ;-)

    $ perl -Mojo -e 'say g("https://perlmonks.org")->dom->at("title")->all
+_text=~s/^\s+|\s+$//gr'
PerlMonks - The Monastery Gates

    [download]
[reply]
[d/l]
[select]

      ojo is very nice, but I find myself more often writing programs that just aren't practical as one liners

[reply]
        I find myself more often writing programs that just aren't practical as one liners

        Same here. My reaction was inspired by this: 'However part of my question was how do I extract in one statement what's in between the "title tags". ... Surely there's a simpler way?' I think one of the things that turns people off from using modules instead of plain regexes is because modules often require a lot of boilerplate, which luckily Mojolicious for the most part does not.

[reply]

In Section Seekers of Perl Wisdom