Shell Programming and Scripting

Age|Name|Sal|Comm
21|Raj|20000|100
20|Donald|1000|0
18|Steve|80000|5000
.
.

Sal|Age|Name|Comm
20000|21|Raj|100
1000|20|Donald|0
80000|18|Steve|5000

Name|Age|Sal|Comm
Raj|21|20000|100
Donald|20|1000|0
Steve|18|80000|5000

#!/bin/bash

i=0; while read line; do
  val=`echo $line | sed 's/|/ /g'`
  a[i]=`echo $val | awk '{print $1}'`
  b[i]=`echo $val | awk '{print $2}'`
  c[i]=`echo $val | awk '{print $3}'`
  ((i=i+1))
done < file

if [ ${a[0]} == "Name" ];then m=${a[*]} ;fi
if [ ${b[0]} == "Name" ];then m=${b[*]} ;fi
if [ ${c[0]} == "Name" ];then m=${c[*]} ;fi
if [ ${a[0]} == "Age" ];then n=${a[*]} ;fi
if [ ${b[0]} == "Age" ];then n=${b[*]} ;fi
if [ ${c[0]} == "Age" ];then n=${c[*]} ;fi
if [ ${a[0]} == "Sal" ];then o=${a[*]} ;fi
if [ ${b[0]} == "Sal" ];then o=${b[*]} ;fi
if [ ${c[0]} == "Sal" ];then o=${c[*]} ;fi

j=0; for i in $m;do a[$j]=$i;((j=j+1)); done
j=0; for i in $n;do b[$j]=$i;((j=j+1)); done
j=0; for i in $o;do c[$j]=$i;((j=j+1)); done

for((i=0;i<j;i++));do echo "${a[i]}|${b[i]}|${c[i]}"; done

#! /usr/bin/perl

use strict;
use warnings;

open (my $data, '<', $ARGV[0])|| die "Can't open file \"$ARGV[0]\"\n\t$!";
my (@records);
chomp(my $header = readline($data));
my @headers = split(/\|/,$header);
while(<$data>){
    my %fields;
    chomp;
    @fields{@headers} = split (/\|/,$_);
    push @records ,\%fields;
}

for my $record (@records){  
    print "$record->{Name} is $record->{Age} years old and earns $record->{Sal} per annum with an additional $record->{Comm} in commission\n";
}

perl -e 'while(<>){my%f;chomp;if(defined @h){@f{@h}=split/\|/;push @r, \%f;}else{@h=split/\|/;}}for(@r){print "$_->{Name} is $_->{Age}, earns $_->{Sal} plus$_->{Comm} in commision.\n";}' file1.txt

 
awk -F "|" 'BEGIN {OFS = FS} {print $2,$1,$3,$4}' file1.txt