view release on metacpan or  search on metacpan

examples/coauthors.pl  view on Meta::CPAN

#!/usr/local/bin/perl

use lib '..';
use Ace;
use constant HOST => $ENV{ACEDB_HOST} || 'stein.cshl.org';
use constant PORT => $ENV{ACEDB_PORT} || 200005;
my $AUTHOR = "Meyer BJ";

$|=1;

print "Trying to establish connection...";
my $db = Ace->connect(-port=>PORT,-host=>HOST);
print "done\n";

print "Searching for ${AUTHOR}'s coauthors:\n";
my $iterator = $db->find_many(-query=>qq{find Author IS "$AUTHOR"; >Paper; >Author});
while (my $author = $iterator->next) {
  print $author,"\n";
}