#!/usr/bin/env perl
use 5.014;
use strictures;
use Lucy;
use Time::HiRes "gettimeofday", "tv_interval";

my $index = "./lucy.index";

my $schema = Lucy::Plan::Schema->new;
my $easyanalyzer = Lucy::Analysis::EasyAnalyzer
    ->new( language => 'en' );
my $text_type = Lucy::Plan::FullTextType
    ->new( analyzer => $easyanalyzer, );

my $string_type = Lucy::Plan::StringType
    ->new();

$schema->spec_field( name => 'id',   type => $string_type );
$schema->spec_field( name => 'content', type => $text_type );

my $indexer = Lucy::Index::Indexer
    ->new( schema => $schema,   
           index  => $index,
           create => 1,
           truncate => 1, );

while (<DATA>)
{
    my ( $id1, $id2maybe, $text ) = /\A([0-9]+);(?:([0-9]+);)?(.+)/;
    for my $id ( grep defined, $id1, $id2maybe )
    {
        $indexer->add_doc({ id => $id,
                            content => $text });
    }
}
$indexer->commit;

my $searcher = Lucy::Search::IndexSearcher
    ->new( index => $index );

print "Query (q to quit): ";
while ( my $q = <STDIN> )
{
    chomp $q;
    exit if $q =~ /\Aq(uit)?\z/i;
    my $t0 = [gettimeofday()];
    my $hits = $searcher->hits( query => $q, );
    while ( my $hit = $hits->next )
    {
        printf "%12d -> %s\n", $hit->{id}, $hit->{content};
    }

    printf "\nMatched %s record%s in %1.1f milliseconds\n",
        $hits->total_hits,
        $hits->total_hits == 1 ? "" : "s",
        1_000 * tv_interval( $t0, [gettimeofday()] );

    print "\nQuery: ";
}

__DATA__
Your 200 lines of test data…