#!/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} );
}