मैं एक पर्ल हैश संदर्भ को कैसे कम करता हूं जिसे सबराउटिन में पास किया गया है?

Question

मैं अभी भी अपने हैश डेरफ़्रेंसिंग को हल करने का प्रयास कर रहा हूं। मेरी वर्तमान समस्या यह है कि अब मैं एक सब के लिए हैशफ पास कर रहा हूं, और मैं इसे उस सब के भीतर अव्यवस्थित करना चाहता हूं। लेकिन मुझे ऐसा करने के लिए सही विधि/वाक्यविन्यास नहीं मिल रहा है। उप के भीतर, मैं हैश कुंजी को पुन: सक्रिय करना चाहता हूं, लेकिन हैशफ के लिए सिंटैक्स एक हैश जैसा नहीं है, जिसे मैं जानता हूं कि कैसे करना है।

तो क्या मैं चाहता हूँ यह करने के लिए है:

sub foo { 
    %parms = @_; 
    foreach $keys (key %parms) { # do something }; 
} 

लेकिन एक hashref साथ एक हैश के बजाय में पारित किया जा रहा।

कोई भी पॉइंटर्स (इरादा नहीं है) का स्वागत है।

धन्यवाद।

Answer 1

मैं वास्तव में इस समय कोड का परीक्षण किया havn't, लेकिन आप कुछ इस तरह के लिए करना चाहेंगे मुक्तहस्त लेखन:

sub foo { 
    $parms = shift; 
    foreach my $key (keys %$parms) { # do something }; 
} 

Answer 2

यहाँ एक तरह से करने के लिए भिन्नता एक हैश रेफरी एक उप के लिए पारित किया है:

use warnings; 
use strict; 

my %pars = (a=>1, b=>2); 
foo(\%pars); 
sub foo { 
    my ($href) = @_; 
    foreach my $keys (keys %{$href}) { print "$keys\n" } 
} 

__END__ 
a 
b 

भी देखें References quick reference और perlreftut

Answer 3

sub foo 
{ 
    my $params = $_[0]; 
    my %hash = %$params; 
     foreach $keys (keys %hash) 
     { 
     print $keys; 
     } 
} 

my $hash_ref = {name => 'Becky', age => 23}; 

foo($hash_ref); 

इसके अलावा संदर्भों के बारे में एक अच्छा परिचय here है।

Answer 4

#!/usr/bin/perl 
use strict; 

my %params = (
    date => '2010-02-17', 
    time => '1610', 
); 

foo(\%params); 

sub foo { 
    my ($params) = @_; 
    foreach my $key (keys %$params) { 
     # Do something 
     print "KEY: $key VALUE: $params{$key}\n"; 
    }; 
}