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

小猪Gina

一个文件，有n行9列，第一列有13个不同的元素，第七列是正反向。第四列和第五列是起始和终止的位置，其余列不用管。
简化成一个这样的文件：

name     direction     start      end
a1           +               1           3
a1           +               4           5
a1           -                2           4
a1           -                5           6
a2           +               3           7
a2           -                1           5

想得到的结果是：
a1    +    1     3     4      5
a1    -     2     4     5      6
a2    +    3     7
a2    -     1      5

我的思路是，将前两列作为hash的键，后两列作为hash的值来进行处理。但while (<IN>),它是一行一行处理，到最后打印时，只打印出循环的最后一行结果。
拜托高手指点一下，谢谢了。。。

kiwivip

目测是你把哈希定义在循环里面了～

小猪Gina

回复 2# kiwivip


    是，那是一个在服务器中的文件，我先得读进它。。。嗯，刚学perl不久，能指点一下么？谢谢了~

cecial

回复 3# 小猪Gina

1. %hash=();
   
2. while(<IN>) {
   
3.     ($name,$direction,$start,$end)=(split)[0,6,3,4];
   
4.     if (defined($hash{$name}{$direction})) {
   
5.         my @tmp=(@{$hash{$name}{$direction}},$start,$end);
   
6.         $hash{$name}{$direction}=\@tmp;
   
7.     } else {
   
8.         $hash{$name}{$direction}=[$start,$end];
   
9.     }
   
10. }
    
11. foreach $n (sort keys %hash) {
    
12.     foreach $d (sort keys %{$hash{$n}} ) {
    
13.       print "$n $d @{$hash{$name}{$direction}}\n";
    
14. }
    

复制代码

小猪Gina

回复 4# cecial


    谢谢您，可以问一下 （split）[0,6,3,4];的含义吗？谢谢~

小猪Gina

先谢谢三楼的帮助，不过那个（split）[0,6,3,4];确实不明白，在他给的代码的基础上，稍微更改整理了一下，下面的代码运行过了，是可以正确运行的。
my %hash=();
while(<IN>) {
        my($name,$direction,$start,$end)=split(/\s+/,$_);
        if (defined($hash{$name}{$direction})) {
                my @tmp=(@{$hash{$name}{$direction}},$start,$end);
        $hash{$name}{$direction}=\@tmp;
        }else{
                $hash{$name}{$direction}=[$start,$end];
        }
}

foreach my $n (sort keys %hash) {
        foreach my $d (sort keys %{$hash{$n}} ) {
                print "$n $d @{$hash{$n}{$d}}\n";
        }
}

小猪Gina

现在又碰到了一个问题，那个文件的
name     direction     start      end
a1           +               4           5
a1           +               1           3
a1           -                2           4
a1           -                5           6
a2           +               3           7
a2           -                1           5

还是想得到
a1    +    1     3     4      5
a1    -     2     4     5      6
a2    +    3     7
a2    -     1      5

就是将 stat 列进行从小到大进行排序，可以指点一下么？谢谢~

小猪Gina

问题已解决了。代码分享给那些需要的人吧~
open (IN,"< test.txt") || die "Can't open \n";
my %hash=();
my @arrays = <IN>;
my @lie = sort {(split /\s+/,$a)[2] <=> (split /\s+/,$b)[2] }@arrays;

for (my $i=0;$i<=$#lie;$i++) {
        my @line=split(/\s+/,$lie[$i]);
        my($name,$direction,$start,$end)=("$line[0]","$line[1]","$line[2]","$line[3]");
        if (defined($hash{$name}{$direction})) {
        my @tmp=(@{$hash{$name}{$direction}},$start,$end);
        $hash{$name}{$direction}=\@tmp;
        }else{
                $hash{$name}{$direction}=[$start,$end];
        }   
}

foreach my $n (sort keys %hash) {
        foreach my $d (sort keys %{$hash{$n}} ) {
                print "$n $d @{$hash{$n}{$d}}\n";
        }
}
close (IN);

经过试验，没有问题的。

kk861123

回复 8# 小猪Gina


    排序完全可以放在输出啊，省去了第一次的split+排序。
我优化了一下：

1. #!/usr/bin/perl
   
2. use strict;
   
3. use warnings;
   
4. use Data::Dumper;
   
5. 
   
6. my $title = <DATA>;
   
7. my %hash = ();
   
8. while (<DATA>) {
   
9.     my ($name,$direction,$start,$end) = split;
   
10.     push @{ $hash{"$name\t$direction"}}, $start, $end;
    
11. }
    
12. foreach my $k ( sort keys %hash ) {
    
13.     print join("\t", $k, sort { $a <=> $b } @{$hash{$k}}), "\n",
    
14. }
    
15. __DATA__
    
16. name     direction     start      end
    
17. a1           +               4           5
    
18. a1           +               1           3
    
19. a1           -                2           4
    
20. a1           -                5           6
    
21. a2           +               3           7
    
22. a2           -                1           5

复制代码

mcshell

1. #!/usr/bin/perl
   
2. use strict;
   
3. use warnings;
   
4. use Data::Dumper;
   
5. my %hash;
   
6. my $title;
   
7. while(<DATA>){
   
8.     if(/(\w+\s+(?:\+|-))\s+(\d+)\s+(\d+)/){
   
9.         push @{$hash{$1}},$2,$3;
   
10.     }else{
    
11.         $title = $_;
    
12.     }
    
13. }
    
14. map{print "$_\t";print join("\t",sort{$a cmp $b}@{$hash{$_}});print "\n"}sort keys %hash;
    
15. 
    
16. __DATA__
    
17. name     direction     start      end
    
18. a1           +               4           5
    
19. a1           +               1           3
    
20. a1           -                2           4
    
21. a1           -                5           6
    
22. a2           +               3           7
    
23. a2           -                1           5

复制代码