Shell Programming and Scripting

fname1;lname1;eid1;addr;pincode1;
fname2;lname2;eid2;addr2;pincode2;
fname3;lname3;eid3;addr3;pincode3;
fname4;lname4;eid;addr4;pincode4;

cut -d ';' -f1 filename.log

IFS=";"
while read line
do
set $line
A[$i]=$1;
B[$i]=$2;
C[$i]=$3;
D[$i]=$4;
(( i = i + 1 ))
done<file

nawk -F";" '{for (i=1;i<=NF;i++) {a[i]=$i} print a[1]}'  infile.txt

o/p

fname1
fname2
fname3
fname4

$ cat infile
fname1;lname1;eid1;addr;pincode1;
fname2;lname2;eid2;addr2;pincode2;
fname3;lname3;eid3;addr3;pincode3;
fname4;lname4;eid;addr4;pincode4
 
$ cat tmp
#!/bin/bash
i=0
for line in `cat infile`
do
 fn[$i]=`echo $line |cut -d\; -f1`
 ln[$i]=`echo $line |cut -d\; -f2`
 ei[$i]=`echo $line |cut -d\; -f3`
 adr[$i]=`echo $line |cut -d\; -f4`
 pin[$i]=`echo $line |cut -d\; -f5`
 i=$(($i+1))
done
echo -e "\n${fn[*]}\n${ln[*]}\n${ei[*]}\n${adr[*]}\n${pin[*]}\n"
 
 
$ sh tmp
fname1 fname2 fname3 fname4
lname1 lname2 lname3 lname4
eid1 eid2 eid3 eid
addr addr2 addr3 addr4
pincode1 pincode2 pincode3 pincode4

gaurav@localhost:~$ echo 'fname1;lname1;eid1;addr;pincode1;
fname2;lname2;eid2;addr2;pincode2;
fname3;lname3;eid3;addr3;pincode3;
fname4;lname4;eid;addr4;pincode4;' | perl -le 'while(<>) {split(/;/);push(@fname,$_[0]);push(@lname,$_[1]);push(@eid,$_[2]);push(@addr,$_[3]);push(@pincode,$_[4]);}$f1=join("\n",@fname);$f2=join("\n",@lname);$f3=join("\n",@eid);$f4=join("\n",@addr);$f5=join("\n",@pincode);print $f1;print;print $f2;print;print $f3;print;print $f4;print;print $f5;'
fname1
fname2
fname3
fname4

lname1
lname2
lname3
lname4

eid1
eid2
eid3
eid

addr
addr2
addr3
addr4

pincode1
pincode2
pincode3
pincode4
gaurav@localhost:~$