1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
|
#!/usr/bin/env perl
use strict;
use warnings;
no warnings 'redefine';
use File::Spec;
use Data::Dumper;
use lib qw(../lib lib);
use RDF::Query;
use RDF::Query::Util;
use JSON;
use Data::Dumper;
unless (@ARGV) {
print STDERR <<"END";
USAGE: $0 -e 'SELECT * ...'
USAGE: $0 query.rq
END
exit;
}
my $query = &RDF::Query::Util::cli_make_query;
if ($query) {
print $query->sse . "\n";
print to_json( $query->as_hash, { ascii => 1, pretty => 1, allow_blessed => 0 } );
} else {
warn RDF::Query->error;
}
|
