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