मैं लूप के बिना हैश में मान कैसे प्रारंभ करूं?

Question

मैं एक लूप के माध्यम से बिना किसी हश को शुरू करने का तरीका जानने का प्रयास कर रहा हूं। मैं उस के लिए स्लाइस का उपयोग करने की उम्मीद कर रहा था, लेकिन ऐसा लगता है कि अपेक्षित परिणाम नहीं लग रहे हैं।

निम्नलिखित कोड पर विचार करें:

#!/usr/bin/perl 
use Data::Dumper; 

my %hash =(); 
$hash{currency_symbol} = 'BRL'; 
$hash{currency_name} = 'Real'; 
print Dumper(%hash); 

के रूप में की उम्मीद है और निम्नलिखित उत्पादन का उत्पादन इस काम करता है:

$VAR1 = 'currency_symbol'; 
$VAR2 = 'BRL'; 
$VAR3 = 'currency_name'; 
$VAR4 = 'Real'; 

जब मैं इस प्रकार स्लाइस इस्तेमाल करने की कोशिश, यह काम नहीं करता:

#!/usr/bin/perl 
use Data::Dumper; 

my %hash =(); 
my @fields = ('currency_symbol', 'currency_name'); 
my @array = ('BRL','Real'); 
@hash{@array} = @fields x @array; 

उत्पादन होता है:

$VAR1 = 'currency_symbol'; 
$VAR2 = '22'; 
$VAR3 = 'currency_name'; 
$VAR4 = undef; 

वहाँ स्पष्ट रूप से कुछ गलत है।

तो मेरे सवाल होगा: क्या एक हैश दो सरणियों (कुंजी और मूल्यों) दिया प्रारंभ करने में सबसे खूबसूरत तरीका है?

Answer 1

use strict; 
use warnings; # Must-haves 

# ... Initialize your arrays 

my @fields = ('currency_symbol', 'currency_name'); 
my @array = ('BRL','Real'); 

# ... Assign to your hash 

my %hash; 
@hash{@fields} = @array; 

Answer 2

%hash = ('current_symbol' => 'BLR', 'currency_name' => 'Real'); 

या

my %hash =(); 
my @fields = ('currency_symbol', 'currency_name'); 
my @array = ('BRL','Real'); 
@hash{@fields} = @array x @fields; 

Answer 3

पहले एक के लिए, कोशिश

my %hash = 
("currency_symbol" => "BRL", 
    "currency_name" => "Real" 
); 
print Dumper(\%hash); 

परिणाम होगा:

$VAR1 = { 
      'currency_symbol' => 'BRL', 
      'currency_name' => 'Real' 
     }; 

Answer 4

तो, क्या आप चाहते हैं करने के लिए है पॉप कुंजी के लिए एक सरणी का उपयोग करके हैश का उपयोग करें, और मानों के लिए एक सरणी। तो निम्न कार्य करें:

#!/usr/bin/perl 
use strict; 
use warnings; 

use Data::Dumper; 

my %hash; 

my @keys = ("a","b"); 
my @values = ("1","2"); 

@hash{@keys} = @values; 

print Dumper(\%hash);' 

देता है:

$VAR1 = { 
      'a' => '1', 
      'b' => '2' 
     };