請問map用法上的問題

afukada

我現在想把一個array的元素和元素的index作成hash
比方說有一個array: @array=(A,B,C,D,E,F,G,H,I,J,K,L)
然後要產生一個新的hash: %hash=(A=>0,B=>1,C=>2,D=>3,E=>4,F=>5,G=>6,H=>7,I=>8,J=>9,K=>10,L=>11)
有一個方法是
for(0..11){$hash{$array[$_]}=$_}
我想這個應該是可以用map去作
可是有時候沒辦法會出現問題
比方說這個例子我用
%hash=map{$array[$_]=>$_}@array
結果會只有一組hash: %hash=(A=>L)
請問一下有高人可以指點一下嗎

Cu_fans

1. %hash = map {$array[$_], $_ } 0 .. $#array;

复制代码

afukada

謝謝
不過其實我想知道的是為什麼會有一些奇怪的狀況
比方說下面這個例子是要將1到12所有可能排列組合給列出來

&backtrace(0);

sub backtrace
{
        my ($num)=@_;
        my $i;
       
        if($num==12)
        {
                %seq_pos=map{$source[$_]=>$_}@source;#將數字和所在索引作成hash
                foreach(keys(%seq_pos)){print $_,"\t",$seq_pos{$_},"\n"}
        }
       
        for(1..12)
        {
                if(!$used[$_])
                {
                        $used[$_]=1;#紀錄用過的數字
                        $source[$num]=$_;#第n格填入數字n
                        &backtrace($num+1);#繼續列舉之後的維度
                        $used[$_]=0;#回收用完的數字
                }
        }
}

上面這個例子則會發生索引為0的元素不見
然後產生一個索引為12的空元素
結果如下
元素   索引
第一組
        12<-有一個索引為12的空元素
6       5
11      8
3       2
7       7
9       9
12      6
2       1
8       11
4       3
10      10
5       4
第二組
        12
6       5
11      8
3       2
7       7
9       11
12      6
2       1
8       10
4       3
10      9
5       4
...

實際上這個寫法我已經用過幾次
之前"看似"沒有問題
可是這次有發現了這個小bug
所以想問問看有沒有高手可以說明一下這些問題是怎麼產生的
這樣決定我要不要回去檢查那些程式

不過還是很感謝Cu_fans
你提供的方法很好
我會把他學起來

cecial

%seq_pos=map{$source[$_]=>$_}@source;#將數字和所在索引作成hash

这个能实现你需要的功能吗？

afukada

以這個例子來說(將1到12所有可能排列組合)
我整個代碼拿去跑是可行的
只是索引0會出錯(這個不會讀到)
還有就是會跑出一個索引12的空元素

可是像原本我舉的那個例子就整個不行
我猜是因為$_的問題
可是也沒有一個好的想法
其實也是可以用其他方法替代
只是我想知道為什麼有時候可以
有時候不行@@

Kitaisky

@array=(A,B,C,D,E,F,G,H,I,J,K,L);
%hash=map{$array[$_]=>$_}@array

This doesn't work because $array[$_] expects numbered index (0,1,2...)
what's in $array[A]???

jason680

謝謝
不過其實我想知道的是為什麼會有一些奇怪的狀況
比方說下面這個例子是要將1到12所有可能排列組合給列 ...
afukada 发表于 2011-07-20 16:58

递归死循环.....

&backtrace(0);

sub backtrace
{   
...
                        &backtrace($num+1);#繼續列舉之後的維度
                        $used[$_]=0;#回收用完的數字
...
}

moxnet

代码逻辑有问题. 你的数值是从1开始的, 而数组的下标是从0开始的,这儿引起的问题

1. #!/usr/bin/perl
   
2. use Data::Dumper;
   
3. use strict;
   
4. use warnings;
   
5. 
   
6. my @a = qw/1 2 3 4 5/;
   
7. my %h = map {
   
8.     print join(',', $a[$_], $_),"\n";
   
9.     $a[$_] => $_ ;  } @a;
   
10. 
    
11. print Dumper(\@a);
    
12. print Dumper(\%h);

复制代码

输出:

1. :! perl t
   
2. 2,1
   
3. 3,2
   
4. 4,3
   
5. 5,4
   
6. Use of uninitialized value in join or string at t line 7.
   
7. ,5
   
8. Use of uninitialized value in list assignment at t line 7.
   
9. $VAR1 = [
   
10.           1,
    
11.           2,
    
12.           3,
    
13.           4,
    
14.           5
    
15.         ];
    
16. $VAR1 = {
    
17.           '' => 5,
    
18.           '4' => 3,
    
19.           '3' => 2,
    
20.           '2' => 1,
    
21.           '5' => 4
    
22.         };
    

复制代码

如果原始数组的元素是从0开始的, 输出就是ok的

:! perl t
0,0
1,1
2,2
3,3
4,4
5,5
$VAR1 = [
          0,
          1,
          2,
          3,
          4,
          5
        ];
$VAR1 = {
          '4' => 4,
          '1' => 1,
          '3' => 3,
          '0' => 0,
          '2' => 2,
          '5' => 5
        };