Perl 中是否有需要字符串 eval 的用例？

Question

您能否提供任何确实需要使用 eval EXPR 的示例？ 我这么问是因为它通常不被鼓励。

Answer 1

String eval 是执行以下操作的唯一方法：

1. 在运行时决定的包中执行新代码
2. 在运行时向包添加重载（至少根据 override.pm）
3. 执行 Perl
4. 编译宏类型替换

的任意字符串String eval 不应用于：

1. 评估符号
2. 引用执行用户
3. 陷阱错误
4. 中的任何代码（如果有其他方法的话）

eval 还可以用于在也具有 eval 的不同系统或不同语言之间创建临时通信协议（当然前提是一切都是安全的）。 JSON 可以被视为该方法的更安全但有限的子集）

Answer 2

字符串 eval 是从字符串中生成新代码的唯一方法。这很少是必要的，但有一些有效的用例，例如将模板转换为可运行的代码时。除此之外，它的有效用途很少。 eval "require $module_name" 是一个众所周知的习惯用法，但使用例如 Module::Load 比 IMO 更好。

Answer 3

eval EXPR 可用于元编程，以防万一您无法
依赖 Moose 或类似的
动态创建类的框架。查看一下来源
Exception::Class
来看看这个技术的全部恐怖之处。

附录： (@friedo)
eval 通过符号表操作提供的一项功能
是使用 SUPER 并使其按预期工作的能力：

package Foo;
sub msg { return 'Foo' }

package MyCodeGenerator;

use strict;
use warnings;

eval <<'EOPERL'; # '' -> no variable interpolation
  package FooBar;
  @FooBar::ISA = qw/Foo/;
  sub msg {
    my $self = shift;
    return $self->SUPER::msg() . 'Bar'; # calls &Foo::msg
  }
EOPERL

虽然这会（希望）在运行时消失，或者为您设置一个
长达数小时的调试会话：

package BROKEN_Generator;

@FooBar::ISA = qw/Foo/;
*{'FooBar::msg'} = sub {
  my $self = shift;
  return $self->SUPER::msg() . 'Bar'; # tries to call &BROKEN_Generator::msg
}

轻松进入我的 前 5 名我讨厌 Perl 的事情！

Answer 4

几年前，我编写了一个静态网站生成器，它使用 Perl（<——有趣的是，我的拼写检查器建议用“Peril”来替代它）作为脚本语言。它允许用户输入有关层次结构不同级别的信息 - 第一个市场是墓地，在那里你有拥有纪念碑的客户（付费客户）（显然是为死者）。

它有一个 GUI，您可以在其中输入变量（这里为我的图形技能而颤抖）：

+------------+----------------------------+
| ClientName | Pax Diablo                 |
+------------+----------------------------+
| Address    | 666 Hades St, Washinton DC |
+------------+----------------------------+

以及图片变量。

此外，对于每个市场（例如前面提到的墓地），都有一个控制脚本，该脚本基本上在多个层次结构级别上运行和处理每个记录以生成静态内容。在此之前，程序已将所有这些变量转换为如下内容：（

$Var{"ClientName"} = "Pax Diablo";

我认为语法是正确的，我已经有一段时间没有进行任何 Perl 开发了）。最终的结果是一个完整的网站，有很多客户、很多纪念馆、搜索页面和一个不错的小赚钱工具（我被葬礼承办人赶出了市场，他们在内部提供与“免费”服务相同的东西）他们的常规包裹）。

但整个事情基本上是用最小的 Perl 编写的，它只做了两件事：

• 将变量转换为 Perl 赋值语句；并
• 运行特定于市场的 Perl 代码。

赋值语句和特定于市场的 Perl 代码的执行都是通过 eval 完成的。

所以它并不像你想象的那么无用。这是一种将脚本引入应用程序的廉价方法。