#!/usr/bin/perl
use 5.014;
use strictures;
use Lucy::Simple;

my $index = $ARGV[0];
system("mkdir -p $index");
my $lucy = Lucy::Simple->new(
    path     => $index,
    language => 'en',
);

open DATA, '<',$ARGV[1];
while (my $line = <DATA>) {
    my ($id,$taxid,$text) = split(/;/, $line, 3);
    $lucy->add_doc( {id => $id, content => $text} );
}

##</code><code>##

#!/usr/bin/perl
use 5.014;
use strictures;
use Lucy::Simple;

my $index = Lucy::Simple->new(
    path     => $ARGV[0],
    language => 'en',
);

my $query_string = $ARGV[1];
my $total_hits = $index->search(query => $query_string);

#print "Total hits: $total_hits\n";
while ( my $hit = $index->next ) {
    print "$hit->{id}\t";
    print "$hit->{content}";
}