#!/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 $statement = RDF::Redland::Statement->new(undef,undef,undef); my @s = $model->find_statements($statement); foreach (@s) { print($_->as_string); print "\n"; }