Skip to content

Instantly share code, notes, and snippets.

@Su-Shee
Created February 10, 2013 16:19
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save Su-Shee/4750087 to your computer and use it in GitHub Desktop.
Save Su-Shee/4750087 to your computer and use it in GitHub Desktop.
This is how it works...
#!/usr/bin/env perl
use strict;
use warnings;
use WWW::Mechanize::Firefox;
use Data::Dumper;
my $mech = WWW::Mechanize::Firefox->new(create => 1, activate => 1);
$mech->get('https://familysearch.org/search/collection/index#count=20&query=%2Bgivenname%3ABenjamin%20%2Bsurname%3ASchuvlein%20%2Bbirth_place%3AGermany%20%2Bbirth_year%3A1910-1914~%20%2Bgender%3AM%20%2Brace%3AWhite&collection_id=2000219');
my @links = $mech->find_all_links(url_regex => qr/pal:/);
for my $link (@links) {
print Dumper $link->url;
print Dumper $link->text;
}
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment