#!/usr/bin/perl -w
# PlBreadthProPrep - preparing PDSP data for breadth analysis
#  written by Tom Ray, September 13, 2007
use strict;
use pdsp;

my %DrugKiHash = ();
my $Drug;
my $Receptor;
my %HashHash = ();
my $NoData = -1;

unless (@ARGV)
{
    print "usage: $0 FileName\n";
    print "usage: $0 061001.txt | less\n";
    exit;
}

my $FileName = $ARGV[0];
my @Data = ReadFile($FileName);

my @Drugs = MakeListOfDrugs(@Data);

my @Receptors = MakeListOfReceptors(@Data);

%DrugKiHash = MakeDrugKiHash(@Data);

%HashHash = MakeDrugReceptorHashHash(\%DrugKiHash, \@Receptors);

# BreadthPro(\%HashHash, \@Receptors, \@Drugs);
BreadthPro(\%HashHash, \@Receptors, \$NoData);

