Shell Programming and Scripting

ID, MONTHS,                  TOTAL_AMT
1   01,02,03                     9000
2   01,02,03,04                 8000
3   03,04,05,06,07,08,09    14000

ID BUDGET_MON  BUDGET_AMT
1      01             3000
1      02             3000
1      03             3000
2      01             2000
2      02             2000
2      03             2000
2      04             2000
3      03             2000
3      04             2000
3      05             2000
3      06             2000
3      07             2000
3      08             2000
3      09             2000

 
while read line
do
        ID=`echo $line | awk '{print $1}'`
        Months=`echo $line | awk '{print $2}'`
        NoOfMonths=`echo $Months | tr -dc "," | wc -c | awk '{print $1}'`
        TotAmt=`echo $line | awk '{print $3}'`
        (( BugAmt = TotAmt / ( NoOfMonths + 1 ) ))
        for Month in `echo $Months | tr ',' ' '`
        do
                echo "$ID $Month $BugAmt"
        done
done < input.txt

awk -F"[, ]" ' 
/ID,/ { print "ID BUDGET_MON BUDGET_AMT" }
!/ID,/ {
   for(i=2;i<NF;i++) print $1, $i,$NF/(NF-2);
}' budget.txt

echo "ID BUDGET_MON BUDGET_AMT"
while read ID MONTHS VAL
do
   read -a M_ARRAY <<EOF
   $( IFS=","; echo $MONTHS )
EOF
   [ "$ID" = "ID," ] && continue
   for MTH in ${M_ARRAY[@]}
   do
       echo $ID $MTH $((VAL/${#M_ARRAY[@]}))
   done
done < budget.txt

while(<DATA>){
  next if $.==1;
  chomp;
  my @tmp = split;
  my @ids=split(",",$tmp[1]);
  foreach(@ids){
   print $tmp[0],"      ",$_,"  ",$tmp[2]/($#ids+1),"\n";
  }
}
__DATA__