#!/usr/bin/perl -w
# Read output of PlCountRatings.txt and sum data for each drug March 20, 2013
# perl PlReportsPerDrug.txt Sum24.txt > ReportsPerDrug.txt

use strict;
srand(time|$$);

sub ReadFile
{
    my ($FileName) = @_;
    unless(open(MYFILE, $FileName))
    {
        print "Cannot open file $FileName\n";
        exit;
    }
    my @Data = <MYFILE>;
    close MYFILE;
    return @Data;
}

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

my @DataO;
my $LineCum = "";
foreach my $Line (@DataI)
{
    if ($Line =~ /\S/)
    {
        $LineCum = $LineCum . $Line;
    }
    else
    {
        push(@DataO, $LineCum);
        $LineCum = "";
    }
}

until ($DataO[0] =~ /\S/)
{
    shift @DataO;
}

my $Finish = 0;
my $First = 1;
my $Drug;
my $CountReports = 0;
my $CountTotal = 0;

foreach my $Line (@DataO)
{
    if ($Line =~ /^Drug:/)
    {
        if ($Finish)
        {
            print "$CountReports\n";
        }
        $Line =~ /^Drug: (.*)$/;
        $Drug = $1;
        print "\n$Drug: ";
        $CountReports = 0;
        $Finish = 1;
    }
    else
    {
        $CountReports++;
        $CountTotal++;
    }
}
print "$CountReports\n\n";
print "Total: $CountTotal\n";

