#!/usr/bin/perl

use strict;
use DBI();

my $basedir= "...";
my $socket=".../mysqld.sock";
my $database="infodb";
my $table="files";
my $sqluser= getpwuid($<);
my $pass="<password>";

$#ARGV >= 0 or
die "usage: $0 <keyword> ...\nlooks for an entry with all <keyword>s in the infodb database.\n";

my ($db, $dbstring, $query, $keywstr);
my $rowref;

$keywstr= join "' and keywords rlike '", @ARGV;

$dbstring= "DBI:mysql:database=$database;mysql_socket=$socket";
$db= DBI->connect( $dbstring, $sqluser, $pass );

$query= $db->prepare("select * from $table where keywords rlike '$keywstr';");
$query->execute or die "$0: Error querying database\n";

if( $query->rows > 0 ) {
  print "File\t\t\t\t\tKeywords\n\n";
  while ( $rowref = $query->fetchrow_arrayref ) {
    print "$basedir$$rowref[1]/$$rowref[0]\t$$rowref[2]\n";
  }
}

$query->finish;

$db->disconnect;