如何在 Perl 中使用宏？

如何在 Perl 中使用宏，就像在 C 中一样？

Example:

#define value 100 
print value; 

我想让输出为 100。

如果您只想定义常量（如您的示例）而不是完整的宏，有几种 perl 方法可以做到这一点。

有些人喜欢：

use constant value => 100;
print value;

请注意，“值”是一个子例程，而不是“变量”。这意味着您无法将其插入字符串中，因此您必须这样做。print "The value is ".value."\n";.

The "最佳实践“ 人群喜欢：

use Readonly;
Readonly my $value => 100;
print $value;

然而，与constant不同，Readonly不是核心perl发行版的一部分，因此需要从CPAN安装。