perl - 如何在 perl mason 文件中创建一个常量字符串？

Question

简单的问题:有没有办法在 perl mason 文件中创建一个常量字符串？我希望能够将硬编码字符串分配给我的 perl 文件顶部的变量，然后能够在文件的其余部分中使用它。相当于 Java 的东西
private static final String DEFAULT_USERNAME = "Bobby Joe";

Answer 1

Perl 中的一个等效概念是 constant附注:

% use constant DEFAULT_USERNAME => "Bobby Joe";
<h1>Welcome, <% DEFAULT_USERNAME %></h1>

这是一种语法糖，它实际上创建了一个名为 DEFAULT_USERNAME 的子程序。在当前包中，就像你说的

sub DEFAULT_USERNAME () { "Bobby Joe" }