如何在 Perl 中运行动态代码？

Question

我有一个关于 Perl 动态代码的问题。 Perl 中是否有一个构造可以用来执行代码。

例如，

$command = " some command";
$perl -> execute($command);

$command 在运行时发生变化。抱歉我的术语。否则我不知道如何解释。

我试图实现这一点：我有一个函数，可以为数组中的每个引用执行一些命令。

 ...insert example call to function...

假设每个引用都有一个关联的标识符。

 ...insert sample reference...
 ...say something about how you determine the identifier...
 ...say something about how you want to use the identifier...

我无法迭代数组并对每个引用执行，因为命令的一部分因每个引用而异，因为它具有标识符的一部分，并且没有详尽的标识符列表。例如，如果 $r0 具有标识符“r0”，则应执行命令 $r0->test("r0")。

Answer 1

如果这是一个外部命令，您可以使用系统、反引号或 Perl 模块之一来完成此类操作。

如果你想在运行时编译并执行Perl代码，你可以使用eval。在许多情况下，人们滥用 eval 因为他们看不到更简单的方法来完成工作。

如果你想根据情况决定运行哪个子例程，你可以做各种事情，包括使用软引用（讨厌！但有时很有用）、调度表等等。

如果您想根据变量中的值选择一种方法，这也很容易：

 $object->$method(...)

但是，您必须告诉我们您想要完成什么。

---

我仍然不确定你在问什么，但这听起来并不像任何动态的东西。我想这就是你所描述的情况。告诉我这有多接近：

 my @array = ( [ 'r0', 'foo', 'bar' ] );

 foreach my $element ( @array ) {
      my( $identifier, @other_stuff ) = @$element;
      $element->test( $identifier );
      }

如果您可以显示一些示例元素和更完整的（即使是伪代码）概述您所拥有的内容，那将会非常有帮助。我们只知道您在问题中告诉我们的内容，而不是您对自己问题的所有了解。

Answer 2

您可以使用 eval：

eval($command);

来自 手册：

评估 EXPR

在第一种形式中，EXPR 的返回值被解析并执行，就好像它是一个小型 Perl 程序...