1 |
#!/usr/bin/env perl |
2 |
# the simplest implementation of a gatherer |
3 |
|
4 |
use strict; |
5 |
|
6 |
use HyperEstraier; |
7 |
|
8 |
# open the database |
9 |
my $db = HyperEstraier::Database->new(); |
10 |
$db->open('casket', $HyperEstraier::Database::DBWRITER | $HyperEstraier::Database::DBCREAT); |
11 |
|
12 |
# create a document object |
13 |
my $doc = HyperEstraier::Document->new; |
14 |
|
15 |
# add attributes to the document object |
16 |
$doc->add_attr('@uri', "http://estraier.gov/example001.txt"); |
17 |
$doc->add_attr('@title', "Over the Rainbow"); |
18 |
|
19 |
# add the body text to the document object |
20 |
$doc->add_text("Somewhere over the rainbow. Way up high."); |
21 |
$doc->add_text("There's a land that I heard of once in a lullaby."); |
22 |
|
23 |
# register the document object to the database |
24 |
$db->put_doc($doc, $HyperEstraier::Database::PDCLEAN); |