perl - 如何在 Perl 散列中存储和使用变量和子例程名称？

Question

我的程序处理两种类型的“某物”，每种类型都有自己的数据结构和处理它们的过程。用户使用以下任一或两者调用程序:

• -f1 path_to_file_with_flavor_1_data
• -f2 path_to_file_with_flavor_2_data

我的程序正在工作，编码为:

GetOptions ('f1=s' => \$f1_path,
            'f2=s' => \$f2_path,
           );

if (defined $f1_path) {
  subroutine_to_process_flavor_1_data( $f1_path );
}
if (defined $f2_path) {
  subroutine_to_process_flavor_2_data( $f2_path );
}

它有一个哈希来存储两种风格的处理数据:

my %flv_hash = ( flavor_1 => { datahash => { ... },
                             },
                 flavor_2 => { datahash => { ... },
                             },
               );

我现在想将每个 flavor 的变量和子例程名称添加到哈希中以使其:

my %flv_hash = ( flavor_1 => { datahash => { ... },
                               var_name => 'f1_path',
                               sub_name => 'subroutine_to_process_flavor_1_data',
                              },
                 flavor_2 => { datahash => { ... },
                               var_name => 'f2_path',
                               sub_name => 'subroutine_to_process_flavor_2_data',
                              },
               );

并将我的程序更改为以下伪代码:

foreach my $flavor ( keys %flv_hash ) {
   if (defined <the variable named $flv_hash{flavor}{var_name}>) {
      <call the subroutine named $flv_hash{flavor}{sub_name}>
   }
}

我已经搜索了有关在散列中存储和检索变量和子例程名称的所有知识库，但是，作为一名硬件工程师，其软件技能仅限于我在基础编程 101 中学到的知识，我花了大约 35 年的时间以前，我无法直接复制示例并让它们在我的程序上下文中工作。换句话说，如果可能的话，我希望有一个可以复制和使用的解决方案，而无需深入了解它们所基于的 Perl 范例。再次感谢您。

Answer 1

在这个漂亮的布局中，有一件事是对子例程和变量的名称的使用，在形成散列时——你实际上不能使用这些东西，运行子例程或评估变量，仅使用它们的名称。

相反，您可以采用一个子例程引用，它是一个标量，因此可以是一个哈希值，然后可以通过取消引用它来执行该子例程；并使用变量作为值。

哈希值

my %flv_hash = ( 
    flavor_1 => { 
        data => { ... },
        var  => $f1_path,
        code => \&subroutine_to_process_flavor_1_data,
    },
    flavor_2 => { 
        data => { ... },
        var  => $f2_path,
        code => \&subroutine_to_process_flavor_2_data,
    },
);

( key 的 code 只是一个更好名称的占位符)。按照指示使用它

foreach my $flavor ( keys %flv_hash ) {
   if (defined $flv_hash{$flavor}{var}) {
      $flv_hash{$flavor}{code}->( $flv_hash{$flavor}{var} );
   }
}

\&sub_name 语法接受并返回 reference to a subroutine标量也是如此，它可以像任何其他标量一样被分配和/或操作。

创建此类代码引用的另一种方法是使用 anonymous subroutine ，通过使用语法直接分配子程序代码

my $code_reference = sub { subroutine-code };

如果 subs 短小精悍，您还可以在哈希 (code => sub { ... }) 中执行以下操作。

然后，符号 $coderef->( LIST ) 是我们如何通过标量变量 $coderef 中的引用来执行子例程。如果没有参数，我们需要空括号。

一旦您采用代码引用，当然有多种方法可以组织它；我只是遵循问题的合理意图。在这方面可能有用的另一个项目是 dispatch table ;最近的一个引用文献是this page ，还有更多。

另请参阅 this post ，以及更多 this article来自有效的佩勒 ...等等

---

我突然想到，也许子名称本身也可能是需要的。

从代码引用中检索名称的简单方法是使用 Sub::Util

use Sub::Util qw(subname);

say subname( $coderef );

我认为这是从 perl-5.22.0(？)开始的核心。还有Sub::Identify在 CPAN 上。

那么，万能的B通过 svref_2oject($coderef) 给出了这些以及更多信息，对于代码引用，它返回 B::CV对象，其上 B::GV也可以使用方法

use B qw(svref_2object);

my $cv = svref_2oject($coderef);

say for $cv->FILE, $cv->GV->NAME;  # etc