Add wikidata link

[matyaskopp]

add wikidata link to persons.
search: https://www.wikidata.org/w/index.php?search=milo%C5%A1+zeman+1944&title=Special:Search&profile=advanced&fulltext=1&ns0=1&ns120=1
link: https://www.wikidata.org/wiki/Q29032

or use sparql:
https://www.wikidata.org/wiki/Wikidata:SPARQL_query_service/queries/examples

https://query.wikidata.org/#SELECT%20%3Fperson%20%3FpersonLabel%20%3Fbirth%20where%20%7B%0A%20%20%3Fperson%20wdt%3AP31%20wd%3AQ5%3B%0A%20%20%20%20%20%20%20%20%20%20wdt%3AP569%20%3Fbirth.%0A%20%20FILTER%20%28%3Fbirth%20%3D%20%221944-09-28T00%3A00%3A00Z%22%5E%5Exsd%3AdateTime%20%29%0A%20%20%3Fperson%20%20%3Flabel%20%22Milo%C5%A1%20Zeman%22.%0A%20%20SERVICE%20wikibase%3Alabel%20%7B%20bd%3AserviceParam%20wikibase%3Alanguage%20%22%5BAUTO_LANGUAGE%5D%2Ccs%2Cen%22.%20%7D%0A%7D

SELECT ?person ?personLabel ?birth where {
  ?person wdt:P31 wd:Q5;
          wdt:P569 ?birth.
  FILTER (?birth = "1944-09-28T00:00:00Z"^^xsd:dateTime )
  ?person  ?label "Miloš Zeman".
  SERVICE wikibase:label { bd:serviceParam wikibase:language "[AUTO_LANGUAGE],cs,en". }
}

[matyaskopp]

use LWP::UserAgent;
use Data::Dumper;
use JSON::XS;

sub wdSparqlQuery(@args) {
  my $agent = shift;
  my $query = shift;
  my $format = shift;
  my $endpointURL = "https://query.wikidata.org/sparql";
  my $queryURL = "${endpointURL}?query=${query}&format=${format}";
  my $ua = LWP::UserAgent -> new;
  $ua -> agent($agent);
  my $req = HTTP::Request -> new(GET => $queryURL);
  my $res = $ua -> request($req);
  my $str = $res -> content;
  return $str;
}

$agent = "WDQS-example "; # TODO adjust this; see https://w.wiki/CX6
$query = <<'_SPARQL_QUERY_';
SELECT ?person ?personLabel ?birth where {
  ?person wdt:P31 wd:Q5;
          wdt:P569 ?birth.
  FILTER (?birth = "1944-09-28T00:00:00Z"^^xsd:dateTime )
  ?person  ?label "Miloš Zeman".
  SERVICE wikibase:label { bd:serviceParam wikibase:language "[AUTO_LANGUAGE],cs,en". }
}
_SPARQL_QUERY_
$format = "json";
$data = JSON::XS::decode_json(wdSparqlQuery($agent, $query, $format));

print "Retrieved data:\n";
print Dumper($data);

[matyaskopp]

members of Chamber of Deputies

SELECT ?person ?personLabel ?birth where {
  ?person wdt:P31 wd:Q5;
          wdt:P569 ?birth;
          wdt:P39 wd:Q19803234.
  SERVICE wikibase:label { bd:serviceParam wikibase:language "[AUTO_LANGUAGE],cs,en". }
}

government members:

SELECT ?person ?personLabel ?birth ?ministerLabel where {
  ?person wdt:P31 wd:Q5;
          wdt:P569 ?birth;
          wdt:P39 ?minister.
  ?minister wdt:P31 wd:Q4164871;
            wdt:P361 wd:Q5015587.
  SERVICE wikibase:label { bd:serviceParam wikibase:language "[AUTO_LANGUAGE],cs,en". }
}

members of Senate:

SELECT ?person ?personLabel ?birth where {
  ?person wdt:P31 wd:Q5;
          wdt:P569 ?birth;
          wdt:P39 wd:Q18941264.
  SERVICE wikibase:label { bd:serviceParam wikibase:language "[AUTO_LANGUAGE],cs,en". }
}