Shell Programming and Scripting

12........6789101112..............20212223242526..................50  ( Positions)
LName       FName                     DOB                                    (Lastname starts from 1 to 6 , FName from 8 to 15 and date of birth from 21 to29)
 
CURTIS     KENNETH                   19770607
WALKER    CHARLES                   19380105
COHAN      TREVA                      19510506

COHAN      TREVA                      19510506
CURTIS     KENNETH                   19770607
WALKER    CHARLES                   19380105

bash-3.2$ cat x
12345678910121314151617181920 (Positions)
SAchin      Tendular           100
Virat         Kolhi                 99
AAA          BBBB                00
BBB           XXX                 10
bash-3.2$ 
bash-3.2$ sort -nr -k 3 x
SAchin      Tendular           100
Virat         Kolhi                 99
BBB           XXX                 10
AAA          BBBB                00
12345678910121314151617181920 (Positions)

sort -k1.8,1.15 -k1.1,1.6 -k1.21,1.29n file

sort -k 2,2 -k1,1 file

sort file

def leo(x):
 return(x[0],x[1],int(x[2]))
d=[]
with open("a.txt") as file:
 for line in file:
  line=line.replace("\n","")
  items = line.split(" ")
  d.append(items)
for i in sorted(d,key=leo):
 print(i)

my @result;
while(<DATA>){
	my @arr=split(" ",$_);
	push @result,\@arr;
}
for my $val (sort {$a->[0] cmp $b->[0] || $a->[1] cmp $b->[1] || $a->[2] <=> $b->[2]} @result){
	print join " ", @$val;
	print "\n";
}
__DATA__
c d 10
a b 20
d c 10
c a 10
c d 20
b b 100
d a 13
d c 8