/usr/share/doc/librdf-trine-perl/examples/bin/rdf_store_serialize.pl is in librdf-trine-perl 1.011-2.
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 | #!/usr/bin/perl
use strict;
use warnings;
no warnings 'redefine';
use File::Spec;
use File::Slurp;
use RDF::Redland;
use LWP::UserAgent;
use Data::Dumper;
use RDF::Trine;
use RDF::Trine::Model;
use RDF::Trine::Serializer::NTriples;
use RDF::Trine::Store::DBI;
use RDF::Trine::Statement;
unless (@ARGV >= 4) {
print <<"END";
USAGE: $0 server-type dbname username password model-name [host]
server-type can be either 'mysql' or 'sqlite'
END
exit;
}
my $server = shift;
my $dbname = shift;
my $user = shift;
my $pass = shift;
my $modelname = shift;
my $host = shift;
my $dsn;
if ($server eq 'mysql') {
$dsn = "DBI:mysql:database=${dbname}";
} elsif ($server eq 'sqlite') {
$dsn = "DBI:SQLite:dbname=${dbname}";
} elsif ($server eq 'pg') {
$dsn = "DBI:Pg:dbname=${dbname}";
if ($host) {
$dsn .= ';host=' . $host;
}
} else {
warn "Unknown server type: $server\n";
exit;
}
my $store = RDF::Trine::Store::DBI->new($modelname, $dsn, $user, $pass);
my $model = RDF::Trine::Model->new($store);
my $serializer = RDF::Trine::Serializer::NTriples->new();
$serializer->serialize_model_to_file( \*STDOUT, $model );
if (0) {
my $iter = $store->get_statements();
while (my $s = $iter->next) {
print $s->as_string . "\n";
}
}
|