我想用我的程序将文字分配给文件末尾的一些变量,但是要先使用这些变量.我想出来的唯一方法是：
my $text;
say $text;
BEGIN {
$text = "abc";
}
是否有更好/更惯用的方式？
解决方法
只是去功能.
改为创建子程序：
say text();
sub text { "abc" }
更新(谢谢raiph！收集您的反馈,包括使用term:<>的参考)：
在上面的代码中,我最初省略了对文本调用的括号,但是总是包含它们以防止解析器误解我们的意图会更容易维护.例如,
say text(); # "abc"
say text() ~ text(); # "abcabc"
say text; # "abc",interpreted as: say text()
say text ~ text; # ERROR,interpreted as: say text(~text())
sub text { "abc" };
为避免这种情况,您可以将文本设为term,这有效地使裸字文本的行为与text()相同：
say text; # "abc",interpreted as: say text()
say text ~ text; # "abcabc",interpreted as: say text() ~ text()
sub term:<text> { "abc" };
对于编译时优化和警告,我们也可以添加pure trait(感谢Brad Gilbert！).纯粹断言,对于给定的输入,函数“always produces the same output without any additional side effects”：
say text; # "abc",interpreted as: say text() ~ text()
sub term:<text> is pure { "abc" };