/usr/share/doc/librdf-trine-perl/examples/bin/cliapi is in librdf-trine-perl 1.019-1.
This file is owned by root:root, with mode 0o755.
The actual contents of the file can be viewed below.
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 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 | #!/usr/bin/env perl
use utf8;
use strict;
use warnings;
use RDF::Trine qw(iri blank literal);
use RDF::Trine::Parser;
use RDF::Trine::Parser::LineProtocol;
use RDF::Trine::Error qw(:try);
if (scalar(@ARGV) and $ARGV[0] =~ /-h/) {
die usage();
}
my $cli = RDF::Trine::Parser::LineProtocol->new();
my $model = RDF::Trine::Model->new();
my $out = \*STDOUT;
print $out "# RDF::Trine-${RDF::Trine::VERSION}\n";
try {
while (defined(my $line = <>)) {
$cli->execute_line( $line, $model, $out );
}
} catch RDF::Trine::Error with {
my $e = shift;
warn $e->stacktrace;
};
### pod & usage in one
sub usage {
my $usage .= << '=cut';
=pod
=head1 NAME
cliapi - a simple command line interface to an in-memory RDF quad store using the RDF Line Protocol
=head1 DESCRIPTION
cliapi is a simple program which maintains an in-memory RDF quad store and allows inserting,
deleting, and querying data using the RDF Line Protocol format.
=head1 SYNOPSIS
cliapi
ptar -h
ptar --help
=head1 OPTIONS
h Prints this help message
=head1 SEE ALSO
L<RDF::Trine::Parser::LineProtocol>.
=cut
### strip the pod directives
$usage =~ s/=pod\n//g;
$usage =~ s/=head1 //g;
### add some newlines
$usage .= $/.$/;
return $usage;
}
|