perl数据结构的应用

最简单的数据结构的应用，把相同id的行合并，涉及引用等知识：

#!/usr/bin/env perl
use warnings;
use strict;

my %hash;
open FA,$ARGV[0] || die $!;
while (<FA>)
{
	chomp;
	my @tmp = split;
	my $string = "$tmp[1]t$tmp[2]t$tmp[3]t$tmp[4]t$tmp[5]";
	push @{$hash{$tmp[0]}},$string;
}
close FA;

foreach my $id (sort {$a cmp $b} keys %hash)
{
	if (@{$hash{$id}} == 1)
	{
		print "$idt$hash{$id}[0]n";
	}else{
		my ($ref,$sum);
		my (@colsum,@set);
		for(my $i = 0; $i < @{$hash{$id}}; $i ++)
		{
			@set = split /s/,$hash{$id}[$i];
			for(my $j = 0; $j < @set; $j ++)
			{
				$ref->[$i][$j] = $set[$j];
			}
		}
		for(my $j = 0; $j < @{$ref->[0]}; $j ++)
		{
			for(my $i = 0; $i < @{$ref}; $i ++)
			{
				$sum += $ref->[$i][$j];
			}
			push @colsum,$sum;
		}
		print join "t",$id,@colsum,"n";
	}
}