Передать значения по ссылке в 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);