Estoy interesado en escribir un script en perl que vaya al siguiente enlace y extraiga el 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-1923.1723%20%2 20% 2Brace% 3AWhite & collection_id = 2000219

Ese sitio web es la cantidad de hombres blancos nacidos en el año 1923 que viven en el condado de San Diego, California en 1940. Estoy tratando de hacer esto en una estructura de bucle para generalizar en varios condados y años de nacimiento.

En el archivo, locations.txt, pongo la lista de condados, como el condado de San Diego.

El código actual se ejecuta, pero en lugar del # 1975, se muestra desconocido. El número 1975 debe estar en $ val \ n.

¡Apreciaría mucho cualquier ayuda!

#!/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";
         }
     }

Actualización: API no es una solución viable. He estado en contacto con el desarrollador del sitio. La API no se aplica a esa parte de la página web. Por lo tanto, cualquier solución perteneciente a JSON no será aplicable.