/usr/share/doc/librdf-trin3-perl/examples/pretdsl.pl is in librdf-trin3-perl 0.206-2.
This file is owned by root:root, with mode 0o644.
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 | #!/usr/bin/perl
use 5.010;
use RDF::TriN3;
use RDF::TrineX::Parser::Pretdsl;
# Namespaces are just for Turtle output!
my $ns = {
cpant => 'http://purl.org/NET/cpan-uri/terms#',
cpan => 'http://purl.org/NET/cpan-uri/person/',
dbug => 'http://ontologi.es/doap-bugs#',
dcs => 'http://ontologi.es/doap-changeset#',
dcterms => 'http://purl.org/dc/terms/',
dist => 'http://purl.org/NET/cpan-uri/dist/Example-Distribution/',
doap => 'http://usefulinc.com/ns/doap#',
foaf => 'http://xmlns.com/foaf/0.1/',
nfo => 'http://www.semanticdesktop.org/ontologies/2007/03/22/nfo#',
rdfs => 'http://www.w3.org/2000/01/rdf-schema#',
rev => 'http://purl.org/stuff/rev#',
xsd => 'http://www.w3.org/2001/XMLSchema#',
};
my $pretdsl = <<'DATA';
@prefix ex: <http://example.net/> .
`Example-Distribution`
doap:developer cpan:TOBYINK ;
doap:maintainer cpan:TOBYINK .
`Example-Distribution 0.000_01 cpan:TOBYINK`
issued 2012-06-17 .
`Example-Distribution 0.001 cpan:TOBYINK`
issued 2012-06-18 .
`Example-Distribution 0.002 cpan:TOBYINK`
issued 2012-06-19 ;
provides `Example::Distribution Example-Distribution 0.002 cpan:TOBYINK` ;
provides `Example::Distribution::Helper Example-Distribution 0.002 cpan:TOBYINK` ;
dcs:hasPart `./README Example-Distribution 0.002 cpan:TOBYINK` ;
changeset [
item "More monkey madness!"^^Addition ;
item "Less lion laziness!"^^Removal ;
item [ a dcs:Bugfix ; dcs:fixes RT#12345 ; label "Too much focus on lazy cats, but not enough focus on excited primates." ] ;
] .
`Example::Distribution Example-Distribution 0.002 cpan:TOBYINK`
ex:defines p`Example::Distribution 0.002`.
`Example::Distribution::Helper Example-Distribution 0.002 cpan:TOBYINK`
ex:defines p`Example::Distribution::Helper`.
DATA
my $model = RDF::Trine::Model->new;
RDF::TrineX::Parser::Pretdsl
-> new
-> parse_into_model('http://example.org/', $pretdsl, $model);
print RDF::Trine::Serializer
-> new('Turtle', namespaces => $ns)
-> serialize_model_to_string($model);
|