Shell Programming and Scripting

/* ICD Dist, Total */  /* need to export to Excel, sheet=ICD_Dist__Total */
exec(
'select sum(count(*)) 
		cast(count(*)*100.0/sum(count(*)) over() as decimal(18,2)) as percent_total
from DETAIL_' + @dataset_id + ' 
 
)


/* ICD Dist, by Month */  /* need to export to Excel */
exec(
'select  serv_yrmo_tot_claims, 
		cast(count(*)*100.0/sum(count(*)) over(partition by left(convert(varchar,SERVICE_DT,112),6)) as decimal(18,2)) as percent_per_mth
from DETAIL_' + @dataset_id + ' 
 
)

$query1 = 'exec(
'select sum(count(*)) 
		cast(count(*)*100.0/sum(count(*)) over() as decimal(18,2)) as percent_total
from DETAIL_' + @dataset_id + ' 
 
)'
$query2 = 'exec(
'select  serv_yrmo_tot_claims, 
		cast(count(*)*100.0/sum(count(*)) over(partition by left(convert(varchar,SERVICE_DT,112),6)) as decimal(18,2)) as percent_per_mth
from DETAIL_' + @dataset_id + ' 
 
)'

perl -lne 'if(/exec/){$q="";$c=1;$qc++;}if($c){$q = join(" ", $q, $_);if(/\)$/){$f='query'.$qc;$c=0;$$f=$q;}}END{for($i=1;$i<=$qc;$i++){$f='query'.$i;print $f . "=" . $$f;}}' file_name

sed -i  -e "s/exec/\$query1=\'exec/gi" -e "s/^)/)\'/gi" -e "s/^\/\*.*//gi" file

my $count = 0;
open (IN, "filetext.txt");
@array = () ;
while (<IN>) 
{
    if (/exec/) 
    {
	$count = 1;
    }
    elsif (/^\)/) 
    {
	$count = 0;
    }
    elsif ($count) 
    {
	push(@array,$_);

    }

}
close IN;

print "@array";

foreach $line ( @array )
{
        ## not sure what to do next
}