#! /usr/bin/env perl

use strict;
use warnings;
use File::Basename;
use File::Path;
use Cwd 'getcwd';

my $chembl = $ARGV[0];
my $pdbccd = $ARGV[1];
use Cwd 'abs_path';
$chembl = abs_path($chembl);
$pdbccd = abs_path($pdbccd);

my $CWD=dirname(${0});
my $DB=basename(${0}, '.pl');
chdir $CWD;
$CWD=getcwd;
my $PWD=dirname($CWD);
my $ESROOT=$PWD;

my %H=();

open(FD, $chembl);
while( my $line = <FD> ){
  chomp($line);
  my @d = split(/\s+/, $line);
  $H{$d[1]} = $d[0];
}
close(FD);

open(FD, $pdbccd);
while( my $line = <FD> ){
  chomp($line);
  my @d = split(/\s+/, $line);
  if( exists($H{$d[1]}) ){
    printf "chembl.compound:%s\tpdb-ccd:%s\n", $H{$d[1]}, $d[0];
  }
}
close(FD);