#!/usr/bin/perl
#
# Programmer:    Craig Stuart Sapp <craig@ccrma.stanford.edu>
# Creation Date: Sun Jun  4 18:32:22 PDT 2006
# Last Modified: Sun Jun  4 18:32:22 PDT 2006
# Filename:      /project/mazurka/website/info/revcond/pid9048-06/makecorbtime
# Syntax:        perl 5
#
# Description:
#

use strict;

my $btimescore  = $ARGV[0];
my $correctfile = $ARGV[1];

my %abeats = getAbeats($correctfile);





exit(0);


###########################################################################


##############################
##
## getAbeats --
##

sub getAbeats {
   my ($file) = @_;

   open (FILE, $file) or die "Cannot open file $file for reading.";

   my %output;
   my $line;
   my $key;
   my $value;
   while ($line = <FILE>) {
      if ($line =~ /^(\d+)\t(\d+)$/) {
         $key = $1;
         $value = $2;
         $output{$key} = $value;
      }
   }

   return %output;
}