L'interpolazione di stringa Perl può eseguire una valutazione di espressione?

Question

relativi alla domanda: How do I substitute with an evaluated expression in Perl?

In Perl, c'è un modo come in Ruby di fare:

$a = 1; 
print "#{$a + 1}"; 

e può stampare 2?

Answer 1

C'è una scorciatoia simile in Perl per questo:

$a = 1; 
print "@{[$a + 1]}" 

Ciò funziona perché la [] crea un riferimento ad una matrice contenente un elemento (il risultato del calcolo), e quindi il @{} dereference matrice, che all'interno dell'interpolazione di stringhe stampa ciascun elemento dell'array in sequenza. Dato che ce n'è solo uno, stampa solo l'elemento.

Answer 2

È possibile utilizzare il trucco @{[ EXPRESSION ]} menzionato da Greg Hewgill.

C'è anche il modulo Interpolation, che consente di eseguire trasformazioni arbitrarie sui valori che si stanno interpolando (come codificare le entità HTML) oltre alla valutazione delle espressioni.