Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- #!/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>) {
- $location =~ s/^(.*?)\s+$/\1/s;
- chomp($location);
- print("2) $location\n");
- $location =~ s/ /+/g;
- print("3) $location\n");
- foreach my $year (1923..1923) {
- foreach my $gender ('Male') {
- my $u = $url;
- $u =~ s/\%LOCATION\%/$location/g;
- $u =~ s/\%YEAR\%/$year/g;
- $u =~ s/\%GENDER\%/$gender/g;
- print "4) $u\n";
- my $content = get($u);
- print("5) $content\n");
- my $val = 'unknown';
- if ($content =~ / of .strong.([0-9,]+)..strong. /) { print(":("); }
- if (my @cap = ($content =~ / of .strong.([0-9,]+)..strong. /)) {
- print("6) Matched " . $cap[0]);
- $val = $cap[0];
- }
- $val =~ s/,//g;
- $location =~ s/\+/ /g;
- print "'$location',$year,$gender,$val\n";
- print O "'$location',$year,$gender,$val\n";
- }
- }
- }
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement