#!/usr/bin/perl use strict; use RDF::Redland; use RDF::Redland::Model; use RDF::Redland::Storage; use RDF::Redland::Statement; my $dir = '/www/iconocla.st/hacks/query/'; my $storage = RDF::Redland::Storage->new("hashes",'ontobot', "new='no',hash-type='bdb',dir='".$dir."'"); my $model = RDF::Redland::Model->new($storage,''); my $baseuri = RDF::Redland::URI->new($uri); my $sourceuri = RDF::Redland::URI->new($uri); my $statement = RDF::Redland::Statement->new(undef,undef,undef); my @triples = foreach (@s) { print($_->as_string); print "\n"; }