GWILLIAMS / RDF-Trine-1.019 / bin / cliapi 

            

              
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;
}