如何检索已保存的 RDF::Redland 持久存储？答案

【问题标题】：How does one retrieve a saved RDF::Redland persistent store?如何检索已保存的 RDF::Redland 持久存储？
【发布时间】：2013-02-01 14:47:09
【问题描述】：

Redland 库和用于 Perl 的 RDF::Redland 绑定在创建持久存储和模型并将 RDF/XML 文件解析到其中时有很好的记录，例如 here 和 here.

另一方面，我找不到任何关于如何从我的持久存储中检索模型的示例，而且显而易见的方法不起作用。

这就是我创建商店的方式：

my $storage =
  new RDF::Redland::Storage( "hashes", "test",
    "new='yes',hash-type='bdb',dir='data'" )
  or die "Failed to create RDF::Redland::Storage\n";

my $model = new RDF::Redland::Model( $storage, "" )
  or die "Failed to create RDF::Redland::Model for storage\n";

my $uri = new RDF::Redland::URI("file:test.rdf");

my $parser = new RDF::Redland::Parser( "rdfxml", "application/rdf+xml" )
  or die "Failed to find parser\n";

my $stream = $parser->parse_as_stream( $uri, $uri );
my $count = 0;
while ( !$stream->end ) {
    $model->add_statement( $stream->current );
    $count++;
    $stream->next;
}

$stream = undef;
$storage = undef;
$model   = undef;

print "Done. There were $count statements.\n";

这行得通，并告诉我我有 300k 的声明。

然后我尝试用另一个脚本检索这些数据：

my $storage =
  new RDF::Redland::Storage( "hashes", "test",
    "hash-type='bdb',dir='data'" )
  or die "Failed to create RDF::Redland::Storage\n";

my $model = new RDF::Redland::Model( $storage, "" )
  or die "Failed to create RDF::Redland::Model for storage\n";

$model->sync; # tried with and without this line

my $stream = $model->as_stream;
while ( !$stream->end ) {
    print "Statement: ", $stream->current->as_string, "\n";
    $stream->next;
}

这绝对不会打印任何内容。

感谢您的帮助！

【问题讨论】：

标签： perl rdf persistent-storage redland

【解决方案1】：

我找到了解决自己问题的方法，为此浪费了这么多小时，我感到非常愚蠢。因此，如果这可以帮助其他人经历同样的地狱，那就是。

问题不在于检索商店，而在于保存它。这并不明显，因为三个 Berkeley DB 文件加起来有 366 MB。所以在第一个脚本结束时，就在undef'ing 存储和模型之前，需要将它们与$model->sync 同步。

就是这样。

（之后伯克利文件的大小仍然完全相同，只是它可以工作。不要问我为什么。）

【讨论】：