如何在插值字符串中将Perl变量与文本分开？

Question

考虑:

print "    $foo", "AAAAAAAA", $foo, "BBBBBBBB";

假设我想将此代码用于print <<EOF;:

print <<EOF;
    $fooAAAAAAAA$fooBBBBBBBB";
EOF

这是行不通的,因为Perl认为我有一个名为的变量$fooAAAAAAAA.print <<当我进行长时间的打印测试时,如何轻松使用这些线条？

Answer 1

用途${foo}:

print <<EOF;
    ${foo}AAAAAAAA${foo}BBBBBBBB";
EOF