# https://www.perlmonks.org/?node_id=11110379
# usage: perl search_db_inline_c.pl > Outfile.txt

use strict;
use warnings;

# insert the Inline::C or Inline::CPP code here

open_db('db.kch#msiz=128m') or die "db.kch: open error\n";
open my $fh, '<', 'peptides.txt' or die "open error: $!\n";

while ( my $pep = <$fh> ) {
    chomp $pep; my $ids = search_db($pep);
    print "$pep\t", join(',', @$ids), "\n" if @$ids;
}

close $fh;
close_db();