Re^3: 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.

Comment on Re^3: How to extract a pattern in Perl regex? Select or Download Code

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]
Re^5: How to extract a pattern in Perl regex? by marto (Cardinal) on May 02, 2020 at 09:26 UTC
ojo is very nice, but I find myself more often writing programs that just aren't practical as one liners	[reply]
Re^6: How to extract a pattern in Perl regex? by haukex (Archbishop) on May 02, 2020 at 09:31 UTC
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]
Re^7: How to extract a pattern in Perl regex? by marto (Cardinal) on May 02, 2020 at 11:08 UTC
Re^8: How to extract a pattern in Perl regex? by haukex (Archbishop) on May 02, 2020 at 11:53 UTC
Some notes below your chosen depth have not been shown here


We don't bite newbies here... much
	PerlMonks