[Wikidata-bugs] [Maniphest] [Created] T206424: Add Perl example to the Wikidata Query UI

[abian]

abian created this task. abian added a project: Wikidata Query UI. Restricted Application added a subscriber: Aklapper. Restricted Application added a project: Wikidata.

TASK DESCRIPTION

Please add a code snippet in Perl to the dialog "Code" of the Wikidata Query UI.

F26370870: dialog-languages.png

It could be similar to...

use CGI qw/:standard/;
use LWP::UserAgent;
use Data::Dumper;
use Text::CSV_XS;

sub wdSparqlQuery(@args) {
  my $agent = shift;
  my $query = shift;
  my $format = shift;
  my $baseURL = "https://query.wikidata.org/sparql";
  my $queryURL = "${baseURL}?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 = "MyApp/0.1 ";
$query = "SELECT DISTINCT * WHERE {?s ?p ?o} LIMIT 5";
$format = "json";
$data = "" $query, $format);

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

TASK DETAIL

https://phabricator.wikimedia.org/T206424

EMAIL PREFERENCES

https://phabricator.wikimedia.org/settings/panel/emailpreferences/

To: abian
Cc: abian, Aklapper, Nandana, Lahi, Gq86, Lucas_Werkmeister_WMDE, GoranSMilovanovic, QZanden, EBjune, merbst, LawExplorer, Salgo60, Jonas, Xmlizer, jkroll, Smalyshev, Wikidata-bugs, Jdouglas, aude, Tobias1984, Manybubbles, Lydia_Pintscher, Mbch331

_______________________________________________
Wikidata-bugs mailing list
Wikidata-bugs@lists.wikimedia.org
https://lists.wikimedia.org/mailman/listinfo/wikidata-bugs