पर्ल मानचित्र - arrayelement-> के रूप में एक हैश में एक सरणी मैप करने के लिए array_index

Question

मैं इस तरह एक सरणी है जरूरत:

my @arr = ("Field3","Field1","Field2","Field5","Field4"); 

अब मैं नीचे, जहां /DoSomething/ जवाब बजे है की तरह के नक्शे का उपयोग की मांग की।

my %hash = map {$_ => **/DOSOMETHING/** } @arr 

अब मैं हैश की आवश्यकता होती है नीचे की तरह लग रहे करने के लिए:

 
Field3 => 0 
Field1 => 1 
Field2 => 2 
Field5 => 3 
Field4 => 4 

किसी भी मदद की?

Answer 1

%hash = map { $arr[$_] => $_ } 0..$#arr; 

print Dumper(\%hash) 
$VAR1 = { 
      'Field4' => 4, 
      'Field2' => 2, 
      'Field5' => 3, 
      'Field1' => 1, 
      'Field3' => 0 
     }; 

Answer 2

my %hash; 
@hash{@arr} = 0..$#arr; 

Answer 3

पर्ल 5.12 और बाद आप अपने सूचकांक/मान युग्म से अधिक पुनरावृति करने के लिए एक सरणी पर each उपयोग कर सकते हैं:

use 5.012; 

my %hash; 

while(my ($index, $value) = each @arr) { 
    $hash{$value} = $index; 
} 

Answer 4

यहाँ एक और तरह से मैं यह पूरा करने के बारे में सोच सकते हैं:

sub get_bumper { 
    my $i = 0; 
    sub { $i++ }; 
} 

my $bump = get_bumper;   # $bump is a closure with its very own counter 
map { $_ => $bump->(); } @arr; 

बहुत सी बातें है कि आप पर्ल में क्या कर सकते हैं के साथ के रूप में: ऐसा मत करो इस। :) यदि आपको मानने के लिए आवश्यक मानों का अनुक्रम अधिक जटिल है (उदाहरण के लिए 0, 1, 4, 9, 16 ... या यादृच्छिक संख्याओं का अनुक्रम, या पाइप से पढ़ने वाली संख्या), तो इस दृष्टिकोण को अनुकूलित करना आसान है यह, लेकिन आमतौर पर unbeli's approach का उपयोग करना आसान है। इस विधि का एकमात्र लाभ यह है कि यह आपको संख्याओं के मनमानी आलसी अनुक्रम प्रदान करने और उपभोग करने का एक अच्छा साफ तरीका प्रदान करता है: एक फ़ंक्शन जिसे कॉलर-निर्दिष्ट अनुक्रमों की आवश्यकता होती है, केवल पैरामीटर के रूप में कोडेफ ले सकता है, और इसे बार-बार कॉल कर सकता है संख्या प्राप्त करें।