在perl中通过引用传递值

Question

我想将两个值传递给函数：散列名称和文件位置。

我有2个变量$file_location_1和$file_location_2。该函数用于创建散列。

我的问题是：我可以在函数中传递散列的名称和2个变量吗？

enter code here 
sub compare 
{ 
    open(INFILE,$file) 
    while<INFILE> 
    { 
    %hash{xyz}=pqr; 
    } 
} 
    compare(\%abc,file_location_1); 
    compare(\%uvw,file_location_2); 

Answer 1

这是你想要的吗？

sub compare 
{ 
    my ($hr,$file) = @_; 

    open(INFILE,$file); 
    while<INFILE> 
    { 
     $hr->{xyz}=pqr; 
    } 
    close INFILE; 
} 

compare(\%abc,$file_location_1); 
compare(\%uvw,$file_location_2);