求助：perl hash中多元键和值的问题

小猪Gina

回复 19# yinyuemi


    神奇~你的代码比我的看起来苗条多了~感激~

小猪Gina

回复 20# rubyish


    谢谢~也是很“苗条”的代码~嘿嘿~感激~

Perl论坛钧哥哥

my %hash=();
while(<DATA>)
{
        ($name,$direction,$start,$end) = (split)[0..3];
        push @{$hash{"$name\t$direction"}},$start;
        push @{$hash{"$name\t$direction"}},$end;
}
foreach my $key (sort keys %hash)
{
        my @ary = sort @{$hash{$key}};
        print "$key  @ary\n";
}

sunzhiguolu

1. perl -ane '{push(@{$h{join("\t",@F[0,1])}},@F[2,-1])}END{print join("\t",$_,@{$h{$_}}),"\n" for sort {$a cmp $b} keys %h}' f

复制代码

华小飞_Perl

似乎又是生信问题，序列信息吧~