leosole has asked for the wisdom of the Perl Monks concerning the following question:
This is my code:
And the prints:use strict; use warnings; use HTML::TreeBuilder; use HTTP::Tiny; use Data::Dumper qw(Dumper); use IO::Socket::SSL; my $link = 'https://www.tudogostoso.com.br/receita/199993-bolo-de-lima +o.html'; my $response = HTTP::Tiny->new->get($link); my $html; print "$response->{status}\t$response->{reason}\n"; print $response->{content}; if ($response->{success}) { $html = $response->{content}; print "entrou\n"; }
403 Forbidden <html><head><title>You have been blocked</title><style>#cmsg{animation +: A 1.5s;}@keyframes A{0%{opacity:0;}99%{opacity:0;}100%{opacity:1;}} +</style></head><body style="margin:0"><p id="cmsg">Please enable JS a +nd disable any ad blocker</p><script type="3cc341b69494194c916377bc-t +ext/javascript">var dd={'cid':'AHrlqAAAAAMAn9GuxP5ZUjsAut-v0g==','hsh +':'C499C5254821BA7F386B459241B3FC','t':'fe'}</script><script src="htt +ps://ct.datado.me/c.js" type="3cc341b69494194c916377bc-text/javascrip +t"></script><script src="https://ajax.cloudflare.com/cdn-cgi/scripts/ +95c75768/cloudflare-static/rocket-loader.min.js" data-cf-settings="3c +c341b69494194c916377bc-|49" defer=""></script></body></html>
|
|---|
| Replies are listed 'Best First'. | |
|---|---|
|
Re: HTTP::Tiny status 403
by haukex (Archbishop) on Sep 23, 2019 at 22:37 UTC | |
by leosole (Novice) on Sep 24, 2019 at 18:18 UTC | |
|
Re: HTTP::Tiny status 403
by Anonymous Monk on Sep 24, 2019 at 00:31 UTC | |
by leosole (Novice) on Sep 24, 2019 at 21:03 UTC |