Shell Programming and Scripting

emp=1
sal=2
loc=abc
emp=2
sal=21
sal=22
loc=xyz
emp=5
loc=abc

emp,sal,loc
1,2,abc
2,21, 
 ,22,xyz
5, ,abc

awk -F= 'BEGIN {
  k["emp"] = 1; k["sal"] = 2; k["loc"] = 3
  print "emp,sal,loc"
  }
k[$1] <= k[p] { 
  for (i=1; i<=3; i++)
    printf "%s", (v[i] ? v [i] : " ") \
      (i == 3 ? RS : OFS)
  split(x, v)    
  }
{ v[k[$1]] = $2; p = $1 }  
END { 
  if (k[p] >= 3)
    for (i=1; i<=3; i++)
      printf "%s", (v[i] ? v [i] : " ") \
       (i == 3 ? RS : OFS)
  }' OFS=, infile

awk -F= 'BEGIN {
  k["emp"] = 1; k["sal"] = 2; k["loc"] = 3
  print "emp,sal,loc"; cols = 3
  }
k[$1] <= k[p] { print_row(cols); split(x, v) }
{ v[k[$1]] = $2; p = $1 }  
END { k[p] >= 3 && print_row(cols) }
func print_row(n) {
  for (i=1; i<=n; i++)
    printf "%s", (v[i] ? v [i] : " ") \
      (i == n ? RS : OFS)
  }' OFS=, infile

#!/usr/bin/perl

use strict;

my @a_empdata;
my %h_empdata;
my $esl;
my $val;
my $line;
my $i;

open EMPFILE, "<esl.dat"
  or die "can't open file: $!";

@a_empdata = <EMPFILE>;

close EMPFILE
  or die "can't close file: $!";

print "emp\tsal\tloc\n";

$i = 0;

while ($a_empdata[$i])
{
   $line = $a_empdata[$i];
   chomp($line);
   $esl = (split '=', $line) [0];
   $val = (split '=', $line) [1];
   if ( $esl eq "emp" )
   {
      $h_empdata{'emp'} = $val;
      if ( $a_empdata[$i+1] =~ m/emp/ )
      {
         $h_empdata{'sal'} = " ";
         $h_empdata{'loc'} = " ";
         $i++;
      }
      elsif ( $a_empdata[$i+1] =~ m/loc/ )
      {
         $h_empdata{'sal'} = " ";
         $h_empdata{'loc'} = (split '=', $a_empdata[$i+1]) [1];
         chomp($h_empdata{'loc'});
         $i = $i + 2;
      }
      elsif ( $a_empdata[$i+1] =~ m/sal/ )
      {
         $h_empdata{'sal'} = (split '=', $a_empdata[$i+1]) [1];
         chomp($h_empdata{'sal'});
         if ( $a_empdata[$i+2] =~ m/loc/ )
         {
            $h_empdata{'loc'} = (split '=', $a_empdata[$i+2]) [1];
            chomp($h_empdata{'loc'});
            $i = $i + 3;
         }
         else
         {
            $h_empdata{'loc'} = " ";
            $i = $i + 2;
         }
      }
   }
   elsif ( $esl eq "sal" )
   {
      $h_empdata{'sal'} = $val;
      $h_empdata{'emp'} = " ";
      if ( $a_empdata[$i+1] =~ m/loc/ )
      {
         $h_empdata{'loc'} = (split '=', $a_empdata[$i+1]) [1];
         chomp($h_empdata{'loc'});
         $i = $i + 2;
      }
      else
      {
         $h_empdata{'loc'} = " ";
         $i++;
      }
   }
   elsif ( $esl eq "loc" )
   {
      $h_empdata{'loc'} = $val;
      $h_empdata{'emp'} = " ";
      $h_empdata{'sal'} = " ";
      $i++;
   }
   print "$h_empdata{'emp'}\t$h_empdata{'sal'}\t$h_empdata{'loc'}\n";
   undef %h_empdata;
}

./esl.pl
emp     sal     loc
1       2       abc
2       21
        22      xyz
5               abc