/[hyperestraier_wrappers]/trunk/examples/gatherer.pl
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Contents of /trunk/examples/gatherer.pl

Parent Directory Parent Directory | Revision Log Revision Log


Revision 2 - (show annotations)
Sat Sep 3 18:04:41 2005 UTC (18 years, 6 months ago) by dpavlin
File MIME type: text/plain
File size: 749 byte(s)
make working copy
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);

  ViewVC Help
Powered by ViewVC 1.1.26