Shell Programming and Scripting

while(<DATA>){
	chomp;
	my @tmp=split;
	if($.==1){
		$header=sprintf("%s %s %s %s %s %s %s %s %s %s ",$tmp[1],$tmp[2],$tmp[3],$tmp[4],$tmp[2],$tmp[3],$tmp[4],$tmp[2],$tmp[3],$tmp[4]);
		next;
	}
	$site{$tmp[0]}=$.;
	$hash{$tmp[1]}.=$tmp[2]." ".$tmp[3]." ".$tmp[4]." ";
	$seq{$tmp[1]}=$.;	
}
print join " ", sort {$site{$a}<=>$site{$b}} keys %site;
print "\n$header\n";
for my $id (sort {$seq{$a}<=>$seq{$b}} keys %hash){
	print $id," ",$hash{$id},"\n";
}
__DATA__
SITE BARCODE QTY SP CP 
10001 6281103890017 10 50 48
10001 6281103890031 2 12 10
10001 6281103890024 5 25 22
10002 6281103890017 13 50 48
10002 6281103890031 1 12 10
10002 6281103890024 2 25 22
10003 6281103890017 20 50 48
10003 6281103890031 4 12 10
10003 6281103890024 10 25 22

 
val=`head -1 infile1`
grep -v "$val" infile1  >infile
while read record
do
a=`echo $record | cut -d " " -f2`
b=`echo $record | cut -d " " -f3-5`
x=`grep $a outfile | cut -d " " -f1`
if test "$x" -ne "$a"
then
echo $a $b >>outfile
else
sed "s/.*$x.*/& $b/" outfile >tmp
mv tmp outfile
fi
done<infile

awk ' {a[$2]=a[$2]" "$3" "$4" "$5} END {for (i in a) print i, a[i]}' inputfile

awk 'BEGIN {print "\t\t","10001","\t\t\t","10002","\t\t\t","10003","\n",
"BARCODE","\t","QTY","\t","SP","\t","CP","\t",
"QTY","\t","SP","\t","CP","\t","QTY","\t","SP","\t","CP"}
{if(NR==1) next; a[$2]=a[$2]"\t"$3"\t"$4"\t"$5} END {for (i in a) print i, a[i]}' inputfile