在 Perl 函数中打印自由格式文本？

Question

当尝试在 Perl 的子例程中打印自由格式文本时，我遇到了一个非常奇怪的错误。下面是我调用的代码

    print OUTFILE <<"HEADER";
The freeform text would go here
HEADER

奇怪的是，这只适用于我的函数的主要部分。一旦我将它放入函数调用中，我就会收到此错误：

Can't find string terminator "HEADER" anywhere before EOF

这意味着它无法找到标头，即使它在那里。不能在函数（子例程）中使用自由格式文本吗？

Answer 1

确保结束字符串标识符（即 HEADER）之前没有空格/制表符/缩进。您的代码应如下所示：

        function someFunc(){
          print OUTFILE <<"HEADER";
      The freeform text would go here
HEADER
        }

请注意，在 HEADER 之前没有空格/制表符/缩进。它应该从该行的第一个字符开始。

查看本教程以获取更多信息：

• Perl Here-Doc教程

引用：

要记住的重要规则是
你用同样的方法完成了一个here-doc
你开始的词，它必须是由
自己上线