如何使用散列作为Perl子例程的参数?

前端之家收集整理的这篇文章主要介绍了如何使用散列作为Perl子例程的参数?前端之家小编觉得挺不错的,现在分享给大家,也给大家做个参考。
我被要求修改一些现有代码添加一些附加功能。我在Google上搜索过,似乎找不到答案。我有这样的事情…
  1. %first_hash = gen_first_hash();
  2. %second_hash = gen_second_hash();
  3. do_stuff_with_hashes(%first_hash,%second_hash);
  4.  
  5. sub do_stuff_with_hashes
  6. {
  7. my %first_hash = shift;
  8. my %second_hash = shift;
  9.  
  10. # do stuff with the hashes
  11. }

我收到以下错误

  1. Odd number of elements in hash assignment at ./gen.pl line 85.
  2. Odd number of elements in hash assignment at ./gen.pl line 86.
  3. Use of uninitialized value in concatenation (.) or string at ./gen.pl line 124.
  4. Use of uninitialized value in concatenation (.) or string at ./gen.pl line 143.

第85行和第86行是子程序中的前两行,124和143是我访问哈希的位置。当我查看这些错误时,似乎表明我的哈希值未初始化。但是,我可以验证散列值是否具有值。为什么我得到这些错误

解决方法

当您将它们传递到函数中时,哈希正被折叠成平面列表。所以,当你从函数的参数中移除一个值时,你只能得到一个值。你想做的是通过引用通过散列。
  1. do_stuff_with_hashes(\%first_hash,\%second_hash);

但是,你必须使用哈希值作为参考。

  1. my $first_hash = shift;
  2. my $second_hash = shift;

猜你在找的Perl相关文章