0

http リクエストを生成したいと思います。次のコードは、Google Web サイトで試したので、現在の my $uri 行を除いて機能すると思います (その行のコメントを外し、現在の uri 行をコメント アウトします)。次に、興味のあるサイトで試してみましたが、失敗しました。Webページにjavascriptがあるため、部分的に失敗すると思います。最後の行で if ステートメントを満たさず、代わりに終了するため、失敗すると言います。そのif文に入らなければ成功と思っていたのに。これを実現する方法について何か提案はありますか?

 #!/usr/bin/perl

 use strict;
 use warnings;
 use LWP::UserAgent;
 use URI::Escape;

 my $uri = "https://familysearch.org/search/collection/results#count=20&query=%2Bgivenname%3ALester%20%2Bsurname%3AYoungblood%20%2Bevent_place_level_1%3AGeorgia%20%2Bevent_place_level_2%3AWhitfield%20%2Bevent_place_level_3%3ACarbondale%20%2Bgender%3AM&collection_id=2000219";
#my $uri = "https://www.google.com";

my $req = HTTP::Request->new( 'GET', $uri );
$req->header( 'Content-Type' => 'application/json' );
my $lwp = LWP::UserAgent->new;
my $res = $lwp->request($req);
if ( not $res->is_success ) { warn "Bad response :("; sleep(1); die; }
4

1 に答える 1