perl - 为什么这不会永远运行？

Question

我在看一个相当不确定的question关于当你想进行无限循环时最好使用 for(;;) 还是 while(1)，我在 C 中看到了一个有趣的解决方案，你可以 #define “EVER”作为常数等于“;;”并从字面上循环 for(EVER) .

我知道定义一个额外的常量来做到这一点可能不是最好的编程实践，但纯粹是为了教育目的，我想看看这是否也可以用 Perl 来完成。

我试图使 Perl 等效，但它只循环一次然后退出循环。

#!/usr/bin/perl -w

use strict;
use constant EVER => ';;';

for (EVER) {
    print "FOREVER!\n";
}

输出:

FOREVER!

为什么这在 perl 中不起作用？

Answer 1

C 的预处理器常量与大多数语言中的常量非常不同。

一个普通的常量就像一个只能设置一次的变量；它有一个值，可以在变量可以存在的大多数地方传递，你和编译器知道它不会改变有一些好处。这是 Perl's constant pragma 的常量类型。给你。当您将常量传递给 for运算符，它只是将其视为一个字符串值，并据此行事。

然而，C 有一个在编译器甚至看到代码之前运行的步骤，称为预处理器。这实际上是在不知道或不关心其中大部分含义的情况下操纵源代码的文本，因此可以执行您在语言本身中无法完成的各种事情。在 #DEFINE EVER ;; 的情况下，你告诉预处理器替换每一次出现的EVER与 ;; ，这样当实际编译器运行时，它只会看到 for(;;) .你可以更进一步，定义forever这个词。如for(;;) ，它仍然可以工作。

正如 Andrew Medico 在评论中提到的，最接近 Perl 的预处理器是 source filters。 ，并且手册中的示例之一确实是模拟 #define .这些实际上比预处理器宏更强大，允许人们编写诸如 Acme::Bleach 之类的模块(用空格替换整个程序，同时保持功能)和 Lingua::Romana::Perligata(解释用语法正确的拉丁语编写的程序) ，以及更明智的功能，例如为类和方法声明添加关键字和语法。