/[hyperestraier_wrappers]/0.0.13/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

Annotation of /0.0.13/examples/gatherer.pl

Parent Directory Parent Directory | Revision Log Revision Log


Revision 14 - (hide annotations)
Fri Sep 9 15:26:39 2005 UTC (16 years, 3 months ago) by dpavlin
File MIME type: text/plain
File size: 749 byte(s)
import of 0.0.13
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);

  ViewVC Help
Powered by ViewVC 1.1.26