Hi Experts,
Please help me to get the following from script for Unix ENvironment(shell, perl, tr, sed, awk).
INPUT FILE:
20K,ME,592971
20K,YOU,2
20K,HE,1244998
50K,YOU,480110
50K,ME,17
50K,HIS,10
50K,HE,1370391

OUTPUT FILE:
K,ME,YOU,HE,HIS
20K,592971,2,1244998,0
50K,17,480110,1370391,10

Egarly waiting for response, Thanks a Ton in Advance
,

looks same as of your previous post "Matching fields of rows and then operating"

Its not the same, in that post it was to find out first field and add rest field if first field is comman, so it was a mathametical operation.

This post is to change the format of the output file.

Thanks for having a look on it, without solution.

It is often the case that the man who can't tell a lie thinks he is the best judge of one.

I knew its not exactly same. There it was addition based on first column, in this case it is concatenation. Thats the only difference. I am sure you can make use of old script

open FH,"<a.txt";
while(<FH>){
	@arr=split(",",$_);
	map {tr/\n//d} @arr;
	$hash{$arr[0]}->{$arr[1]}=$arr[2];
}
print "K,ME,YOU,HE,HIS\n";
for $key (keys %hash){
	print $key,",",($hash{$key}->{ME})?$hash{$key}->{ME}:0,",",($hash{$key}->{YOU})?$hash{$key}->{YOU}:0,",",($hash{$key}->{HE})?$hash{$key}->{HE}:0,",",($hash{$key}->{HIS})?$hash{$key}->{HIS}:0,"\n";
}

Thanks Summer_cherry, Thanks a Lot.
The code worked and gave the expected output, Trying to understand perl....but little kno with shell and unix utility awk,sed,tr.