Estou interessado em escrever um script perl que vá para o seguinte link e extraia o número 1975:https://familysearch.org/search/collection/results#count=20&query=%2Bevent_place_level_1%3ACalifornia%20%2Bevent_place_level_2%3A%22San%20Diego%22%20%2Bbirth_year%3A1923-1923~%20%2Bgender%3AM% 20% 2Brace% 3AWhite & collection_id = 2000219

Esse site é a quantidade de homens brancos nascidos no ano de 1923 que moram no condado de San Diego, Califórnia, em 1940. Estou tentando fazer isso em uma estrutura circular para generalizar vários condados e anos de nascimento.

No arquivo, locations.txt, eu coloquei a lista de condados, como o Condado de San Diego.

O código atual é executado, mas em vez do # 1975, exibe desconhecido. O número 1975 deve estar em $ val \ n.

Eu apreciaria muito qualquer ajuda!

#!/usr/bin/perl

use strict;

use LWP::Simple;

open(L, "locations26.txt");

my $url = 'https://familysearch.org/search/collection/results#count=20&query=%2Bevent_place_level_1%3A%22California%22%20%2Bevent_place_level_2%3A%22%LOCATION%%22%20%2Bbirth_year%3A%YEAR%-%YEAR%~%20%2Bgender%3AM%20%2Brace%3AWhite&collection_id=2000219';

open(O, ">out26.txt");
 my $oldh = select(O);
 $| = 1;
 select($oldh);
 while (my $location = <L>) {
     chomp($location);
     $location =~ s/ /+/g;
      foreach my $year (1923..1923) {
                 my $u = $url;
                 $u =~ s/%LOCATION%/$location/;
                 $u =~ s/%YEAR%/$year/;
                 #print "$u\n";
                 my $content = get($u);
                 my $val = 'unknown';
                 if ($content =~ / of .strong.([0-9,]+)..strong. /) {
                         $val = $1;
                 }
                 $val =~ s/,//g;
                 $location =~ s/\+/ /g;
                 print "'$location',$year,$val\n";
                 print O "'$location',$year,$val\n";
         }
     }

Atualização: API não é uma solução viável. Eu tenho estado em contato com o desenvolvedor do site. A API não se aplica a essa parte da página da web. Portanto, qualquer solução relacionada ao JSON não será aplicável.