Shell Programming and Scripting

 
Name Eng Hin SS 
A        100  90   83 
B         76   99   90
C         55   34   78

 
Name Sub Marks
A        Eng  100
         Hin    90
         SS    83
B        Eng   76
         Hin    99
         SS    90
So.. On

awk 'BEGIN { print "Name Sub Marks"; } NR>1{printf "%s English %s\n%s Hin %s\n%s SS %s\n", $1, $2,$1,$3,$1,$4 }' file

awk 'BEGIN { print "Name Sub Marks"; } NR>1{printf "%s English %s\n%s Hin %s\n%s SS %s\n", $1, $2,$1,$3,$1,$4 }' file

Name Eng Hin SS 
A        100         83 
B                99   90
 
 
For A's Hin marks is blank and B's Eng is blank

Name Sub Marks
A        Eng  100
          Hin    83
          SS    
B        Eng  99
          Hin    90
        SS    

Name Sub Marks
A        Eng  100
         SS    83
B        Hin    99
         SS    90
      Excluding the blank records 

my @subs;
while(<DATA>){
	my @tmp = split;
	if($. eq 1){
	  print "Name Sub Marks\n";
	  @subs=@tmp[1..$#tmp];
	}
	else{
	  print $tmp[0]," ",$subs[0]," ",$tmp[1],"\n";
		for(my $i=2;$i<=$#tmp;$i++){
			print "  ",$subs[$i-1]," ",$tmp[$i],"\n";
		}
	}
}
__DATA__
Name Eng Hin SS 
A    100  90   83 
B    76   99   90
C    55   34   78