http://qs321.pair.com?node_id=11117062


in reply to LWP::UserAgent & match

Enjoy making life difficult for yourself huh? We've been here before.

#!/usr/bin/perl use strict; use warnings; use Mojo::UserAgent; use feature 'say'; my $url = 'https://finance.yahoo.com/quote/AAPL?p=AAPL&.tsrc=fin-srch' +; my $ua = Mojo::UserAgent->new; say $ua->get( $url )->res->dom->at('span.[class^=Trsdu]')->attr->{'dat +a-reactid'};

Output:

31

Down since last month I see. The lesson is to learn from previous working solutions you've been given.