0.0.13/examples/gatherer.pl

#!/usr/bin/env perl
# the simplest implementation of a gatherer

use strict;

use HyperEstraier;

# open the database
my $db = HyperEstraier::Database->new();
$db->open('casket', $HyperEstraier::Database::DBWRITER | $HyperEstraier::Database::DBCREAT);

# create a document object 
my $doc = HyperEstraier::Document->new;

# add attributes to the document object 
$doc->add_attr('@uri', "http://estraier.gov/example001.txt");
$doc->add_attr('@title', "Over the Rainbow");

# add the body text to the document object 
$doc->add_text("Somewhere over the rainbow.  Way up high.");
$doc->add_text("There's a land that I heard of once in a lullaby.");

# register the document object to the database
$db->put_doc($doc, $HyperEstraier::Database::PDCLEAN);
1	dpavlin	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);