如何在 perl 中结合 ...if $x 和here-doc？

Question

一个人应该怎样写这个呢？

print <<EOF; if $x
bla
EOF

我认为它被称为后缀表示法和此处文档。我收到语法错误。

好吧，我想我会用

print "bla" if $x;

是的，这就是我想要的。

Answer 1

使用

print <<EOF if $x;
bla
EOF

看https://github.com/Perl/perl5/pull/21978。