Shell Programming and Scripting

Directory    ALLOCATED USED
NAME1      93MB        93KB   
NAME2      25G        62K     
NAME3      14G        873M    
NAME4      25G        62K     
NAME5      20G        10.0G    
NAME6      16.1M      16.1M    
NAME7      120G       78.8G    
NAME8      100G       71.8G    
NAME9      130G       57.2G    
NAME10      300G       166G     
NAME11      20G        31KB      
NAME12      100G       52.4G    
NAME13      275G       126G     
NAME14      300T       109G

 awk '{FS="|"; OFS="|"; if (NR<=2) {print} else {print $0 " | " $2/$3*100}}'

awk '
BEGIN {	ec = 0
	m["B"] = 1
	m["K"] = m["KB"] = 1024
	m["M"] = m["MB"] = 1024 ** 2
	m["G"] = m["GB"] = 1024 ** 3
	m["T"] = m["TB"] = 1024 ** 4
	OFS = "|"
}
function mult(f,	mul, num, str) {
	if(match(f, /[[:upper:]]+/) == 0) {
		printf("No multiplier in %s in line %d for %s\n", f, NR, $1)
		ec = 1
		return 1
	}
	num = substr(f, 1, RSTART - 1)
	str = substr(f, RSTART)
	if(str in m) 
		return num * m[str]
	printf("Multiplier %s in line %d for %s unknown\n", str, NR, $1)
	ec = 1
	return 1
}
FNR == 1 {
	$4="%Used"
	print
	next
}
{	$4 = sprintf("%.2f", mult($3) * 100 / mult($2))
	print
}
END {	exit ec
}'

NAME15	    100FB	99

Directory|ALLOCATED|USED|%Used
NAME1|93MB|93KB|0.10
NAME2|25G|62K|0.00
NAME3|14G|873M|6.09
NAME4|25G|62K|0.00
NAME5|20G|10.0G|50.00
NAME6|16.1M|16.1M|100.00
NAME7|120G|78.8G|65.67
NAME8|100G|71.8G|71.80
NAME9|130G|57.2G|44.00
NAME10|300G|166G|55.33
NAME11|20G|31KB|0.00
NAME12|100G|52.4G|52.40
NAME13|275G|126G|45.82
NAME14|300T|109G|0.04
No multiplier in 99 in line 16 for NAME15
Multiplier FB in line 16 for NAME15 unknown
NAME15|100FB|99|100.00

awk 'function check(var){match(var,/M|MB/);A=substr(var,RSTART,RLENGTH);if(A){sub(/M|MB/,X,var);val=var * 1024;return val;val=""};match(var,/G|GB/);B=substr(var,RSTART,RLENGTH);if(B){sub(/G|GB/,X,var);val=var * 1024 * 1024;return val;val="";};match(var,/T|TB/);A=substr(var,RSTART,RLENGTH);if(A){sub(/T|TB/,X,var);val=var * 1024 * 1024 * 1024;return val;val=""};match(var,/K|KB/);D=substr(var,RSTART,RLENGTH);if(D){sub(/K|KB/,X,var);val=var;return val;val="";};} NR>1{for(i=2;i<=NF;i++){A=check($i);Q[NR]=Q[NR]?Q[NR] OFS A:A;}k++} END{print "ROW" OFS "PERCENTAGE";for(i=2;i<=k+1;i++){split(Q[i], E," ");print i OFS E[2]/E[1] * 100}}' OFS="\t"  Input_file

ROW     PERCENTAGE
2       0.0976562
3       0.000236511
4       6.08956
5       0.000236511
6       50
7       100
8       65.6667
9       71.8
10      44
11      55.3333
12      0.00014782
13      52.4
14      45.8182
15      0.0354818

awk 'function check(var)        {
                                        match(var,/M|MB/);
                                        A=substr(var,RSTART,RLENGTH);
                                        if(A){
                                                sub(/M|MB/,X,var);
                                                val=var * 1024;
                                                return val;
                                                val=""
                                             };
                                        match(var,/G|GB/);
                                        B=substr(var,RSTART,RLENGTH);
                                        if(B){
                                                sub(/G|GB/,X,var);
                                                val=var * 1024 * 1024;
                                                return val;
                                                val="";
                                             };
                                        match(var,/T|TB/);
                                        C=substr(var,RSTART,RLENGTH);
                                        if(C){
                                                sub(/T|TB/,X,var);
                                                val=var * 1024 * 1024 * 1024;
                                                return val;
                                                val=""
                                             };
                                        match(var,/K|KB/);
                                        D=substr(var,RSTART,RLENGTH);
                                        if(D){
                                                sub(/K|KB/,X,var);
                                                val=var;
                                                return val;
                                                val="";
                                             };
                                }
      NR>1                      {
                                        for(i=2;i<=NF;i++){
                                                                A=check($i);
                                                                Q[NR]=Q[NR]?Q[NR] OFS A:A;
                                                          };k++
                                }
      END                       {
                                        print "ROW" OFS "PERCENTAGE";
                                        for(i=2;i<=k+1;i++){
                                                                split(Q[i], E," ");
                                                                print i OFS E[2]/E[1] * 100
                                }
                                }
 ' OFS="\t" Input_file

awk     '
BEGIN           {ENG = "BKMGT"
                 for (i=split (ENG, UN, ""); i>0; i--) EXP[UN[i]]=i-1
                }

function NBR(NUMSTR)    {NUMSTR=toupper(NUMSTR)
                         match (NUMSTR, "[" ENG "]")
                         return substr(NUMSTR,1,RSTART-1) * 1024 ^ EXP[substr(NUMSTR, RSTART,1)]
                        }

NR==1           {print $0, "percent"
                 next
                }

                {printf "%s\t %.2f%%\n", $0, 100 * NBR($3) / NBR($2)
                }
' OFS="\t" file