求助：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

想得到的結(jié)果是：
a1    +    1     3     4      5
a1    -     2     4     5      6
a2    +    3     7
a2    -     1      5

我的思路是，將前兩列作為hash的鍵，后兩列作為hash的值來進(jìn)行處理。但while (<IN>),它是一行一行處理，到最后打印時，只打印出循環(huán)的最后一行結(jié)果。
拜托高手指點一下，謝謝了。。。

kiwivip

目測是你把哈希定義在循環(huán)里面了～

小豬Gina

回復(fù) 2# kiwivip


    是，那是一個在服務(wù)器中的文件，我先得讀進(jìn)它。。。嗯，剛學(xué)perl不久，能指點一下么？謝謝了~

cecial

回復(fù) 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. }
    

復(fù)制代碼

小豬Gina

回復(fù) 4# cecial


    謝謝您，可以問一下 （split）[0,6,3,4];的含義嗎？謝謝~

小豬Gina

先謝謝三樓的幫助，不過那個（split）[0,6,3,4];確實不明白，在他給的代碼的基礎(chǔ)上，稍微更改整理了一下，下面的代碼運行過了，是可以正確運行的。
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

現(xiàn)在又碰到了一個問題，那個文件的
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 列進(jìn)行從小到大進(jìn)行排序，可以指點一下么？謝謝~

小豬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);

經(jīng)過試驗，沒有問題的。

kk861123

回復(fù) 8# 小豬Gina


    排序完全可以放在輸出啊，省去了第一次的split+排序。
我優(yōu)化了一下：

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

復(fù)制代碼

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

復(fù)制代碼