¿Cómo puedo separar las variables de Perl del texto en cadenas interpoladas?

Question

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

Digamos que quiero utilizar este código con un print <<EOF;:

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

Eso no funcionará porque Perl cree que tengo una variable llamada $ fooAAAAAAAA. ¿Cómo puedo usar print << fácilmente con tales líneas cuando tengo una prueba larga para imprimir?

Answer 1

Uso ${foo}:

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

Answer 2

Ésta es otra manera de hacerlo utilizando printf:

printf << EOF, $foo, $foo; 
    %dAAAAA%dBBBBBBB 
EOF 

Es decir, suponiendo que desea imprimir $foo como un número decimal. Puede sustituir %d con el formato que necesite.

Answer 3

Y otra respuesta, basada en cadenas no interpoladas, que creo que es la más adecuada.

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

http://perldoc.perl.org/perlop.html#Quote-Like-Operators