在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);