पहले एक चर घोषित किए बिना संदर्भ किए जा सकते हैं?

Question

मैं इस कोड है कि

my @new = keys %h1; 
my @old = keys %h2; 

function(\@new, \@old); 

काम करता है, लेकिन यह पहला चर घोषित करने के लिए बिना किया जा सकता है है?

function के पास संदर्भ के रूप में इसके तर्क होना चाहिए।

Answer 1

use strict; 
use Data::Dumper; 

my %test = (key1 => "value",key2 => "value2"); 
my %test2 = (key3 => "value3",key4 => "value4"); 

test_sub([keys %test], [keys %test2]); 

sub test_sub{ 
my $ref_arr = shift; 
my $ref_arr2 = shift; 
print Dumper($ref_arr); 
print Dumper($ref_arr2); 
} 

आउटपुट:

$VAR1 = [ 
      'key2', 
      'key1' 
     ]; 
$VAR1 = [ 
      'key4', 
      'key3' 
     ]; 

Answer 2

function([ keys %h1 ], [ keys %h2 ]); 

perldoc perlref से

:

एक गुमनाम सरणी का संदर्भ वर्ग कोष्ठक का उपयोग कर बनाया जा सकता है:

$ arrayref = [1, 2, [ 'एक', 'बी' , 'सी']];