Re: html parsing

my $req = HTTP::Request->new(GET => 'https://www.google.com'); $req->content_type('application/json'); my $res = $ua->request($req);
[download]

Please edit your post including the initialization of $ua:

use LWP;
my $ua = LWP::UserAgent->new;
my $req = HTTP::Request->new(GET => 'https://www.google.com');
$req->content_type('application/json');
my $res = $ua->request($req);
[download]

Thank you. You could get the contents of the <title> tag just using a regular expression

my $title;
$res->content =~ m|<title>(.+?)</title>|i and $title = $1;
[download]

but see e.g. Re: Why this simple regex freeze my computer? for caveats.

perl -le'print map{pack c,($-++?1:13)+ord}split//,ESEL'

Comment on Re: html parsing Select or Download Code

Replies are listed 'Best First'.
Re^2: html parsing by Anonymous Monk on Mar 22, 2017 at 15:25 UTC
"You could get the contents of the <title> tag just using a regular expression" Solutions that use regular expressions to parse HTML will never be voted higher than those that actually use a parser. Also your assignment is very low value because it explicitly uses $1 when you could have instead captured the value directly (and safer too).	[reply]
Re^3: html parsing by shmem (Chancellor) on Mar 22, 2017 at 15:40 UTC
I'd downvote my answer, if I could, not only for the shameless plug. Also your assignment is very low value because it explicitly uses $1 when you could have instead captured the value directly (and safer too). Providing code for that end might significantly improve this subthread. perl -le'print map{pack c,($-++?1:13)+ord}split//,ESEL'	[reply]
Re^4: html parsing by Anonymous Monk on Mar 22, 2017 at 15:51 UTC
I was hoping you would do that. :) `(my $title) = $res->content =~ m\|<title>([^<]+)</title>\|i;` [download]	[reply] [d/l]
Re^2: html parsing by bigup401 (Pilgrim) on Mar 22, 2017 at 19:53 UTC
thanks guys, thanks shmem. your idea has worked for me	[reply]


Your skill will accomplish what the force of many cannot
	PerlMonks