Jak mogę oddzielić zmienne Perla od tekstu w łańcuchach interpolowanych?

Question

wydrukuj "$ foo", "AAAAAAAA", $ foo, "BBBBBBBB";

Powiedzmy, że chcemy użyć tego kodu z print <<EOF;:

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

To nie zadziała, ponieważ Perl myśli Mam zmienną o nazwie $ fooAAAAAAAA. Jak mogę łatwo używać print << z takimi liniami, gdy mam długi test do wydrukowania?

Answer 1

Zastosowanie ${foo}:

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

Answer 2

Oto kolejny sposób to zrobić przy użyciu printf:

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

Oznacza to, że zakładając chcesz wydrukować $foo postaci liczby dziesiętnej. Możesz zastąpić %d dowolnym formatem, jakiego potrzebujesz.

Answer 3

I kolejna odpowiedź, oparta na nie interpolowanych ciągach, co uważam za najbardziej odpowiednie.

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

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