/usr/share/doc/libxrd-parser-perl/examples/basic.pl is in libxrd-parser-perl 0.201-3.
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 | use XRD::Parser;
use RDF::Trine::Serializer::NTriples;
my $xrd = <<XRD;
<foo xmlns="http://docs.oasis-open.org/ns/xri/xrd-1.0"
xmlns:h="http://host-meta.net/ns/1.0">
<XRD>
<Expires>1970-01-01T00:00:00Z</Expires>
<h:Host>example.com</h:Host>
<h:Host>www.example.com</h:Host>
<Link rel="profile" template="http://services.example.com/profile?uri={uri}">
<Property type="http://property.example.net/1">Foo</Property>
<Property type="http://property.example.net/2">Bar</Property>
</Link>
<Property type="http://property.example.net/3">Baz</Property>
<Link rel="another" href="/target" type="text/plain">
<Title>Another</Title>
<Property type="http://property.example.net/4">Quux</Property>
</Link>
</XRD>
<XRD>
<Subject>http://example.net/</Subject>
<Expires>1970-02-01T00:00:00Z</Expires>
</XRD>
</foo>
XRD
my $parser = XRD::Parser->new($xrd, "http://example.org/");
$parser->consume;
my $ser = RDF::Trine::Serializer::NTriples->new;
print $ser->serialize_model_to_string($parser->graph);
|