Shell Programming and Scripting

#!/usr/bin/perl
my (%hash,$first,$second,$third);
my @files=('a.txt','b.txt','c.txt');
sub l_sub{
	my $file=$_[0];
	open FH,"<$file";
	while(<FH>){
		chomp;
		my @tmp=split;
		if($.==1 and $file="a.txt"){
			($first,$second,$third)=@tmp;
			next;
		}
		$hash{$tmp[0]}->{POS}=$. if not exists $hash{$tmp[0]};
		$hash{$tmp[0]}->{$first}.=$tmp[1]." ";
		$hash{$tmp[0]}->{$second}.=$tmp[2]." ";
		$hash{$tmp[0]}->{$third}.=$tmp[3]." ";
	}
}
foreach $f (@files){
	l_sub($f);
}
foreach my $ind ($first,$second,$third){
	print $ind,"\n";
	print join " ", @files;
	print "\n";
	foreach my $key (sort {$hash{$a}->{POS} <=> $hash{$b}->{POS}} keys %hash){
		print $key," ",$hash{$key}->{$ind},"\n";
	}
	print "--------------\n";
}

GOOD
a.txt b.txt c.txt
Strawberry 1 1 1 
Banana 23 2 2 
Plantain 0 0 5 
Orange 0 0 0 
--------------
BAD
a.txt b.txt c.txt
Strawberry 4 1 0 
Banana 12 1 1 
Plantain 0 0 0 
Orange 0 0 7 
--------------
FAIR
a.txt b.txt c.txt
Strawberry 5 3 0 
Banana 4 0 4 
Plantain 1 0 7 
Orange 0 0 0 
--------------

#!/usr/env/python

file1_data = open("file1").readlines()[1:]
file2_data = open("file2").readlines()
file3_data = open("file3").readlines()
good={};fair={};bad={}
for i in range(len(file2_data)):
    file1_data[i] = file1_data[i].split()
    file2_data[i] = file2_data[i].split()
    file3_data[i] = file3_data[i].split()    
    good.setdefault(file1_data[i][0],[])
    fair.setdefault(file1_data[i][0],[])
    bad.setdefault(file1_data[i][0],[])
    good[file1_data[i][0]].append(file1_data[i][1])
    good[file2_data[i][0]].append(file2_data[i][1])
    good[file3_data[i][0]].append(file3_data[i][1])
    fair[file1_data[i][0]].append(file1_data[i][2])
    fair[file2_data[i][0]].append(file2_data[i][2])
    fair[file3_data[i][0]].append(file3_data[i][2])
    bad[file1_data[i][0]].append(file1_data[i][3])
    bad[file2_data[i][0]].append(file2_data[i][3])
    bad[file3_data[i][0]].append(file3_data[i][3])
print "Good"
print "*" * 100    
for i,j in  good.iteritems(): print i,','.join(j)
print "*" * 100    
print "Fair"
for i,j in  fair.iteritems(): print i,','.join(j)
print "*" * 100    
print "Bad"
for i,j in  bad.iteritems(): print i,','.join(j)

 # ./test.py
Good
****************************************************************************************************
Orange 0,0,0
Strawberry 1,1,1
Banana 23,2,2
Plantain 0,0,5
****************************************************************************************************
Fair
Orange 0,0,7
Strawberry 4,1,0
Banana 12,1,1
Plantain 0,0,0
****************************************************************************************************
Bad
Orange 0,0,0
Strawberry 5,3,0
Banana 4,0,4
Plantain 1,0,7