01 #!/usr/local/bin/perl -w
02 use strict;
03 use Text::Wrap qw(fill);
04 use DBI;
05 
06 BEGIN {
07     use FindBin qw($RealBin);
08     chdir $RealBin;
09 }
10 
11 my $query = join " ", @ARGV;
12 
13 my $dbh = DBI->connect(
14   "dbi:SQLite:highlights.sqlite", "", "",
15   { RaiseError => 1 } );
16 
17 my $sth = $dbh->prepare(
18   "SELECT * FROM highlights " .
19   "WHERE type = 'Highlight' AND " . 
20   "highlights MATCH(?)" );
21   
22 $sth->execute( $query );
23 
24 my $serial = 1;
25 
26 while( my $ref = 
27          $sth->fetchrow_hashref() ) {
28 
29   my $output = "[$serial] " .
30   "\"$ref->{title}\", $ref->{author}, " .
31   "($ref->{loc}), \"$ref->{text}\"";
32 
33   print fill("", "    ", ($output)), 
34         "\n\n";
35 
36   $serial++;
37 }