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