Kann die Perl-String-Interpolation eine beliebige Ausdrucksauswertung durchführen?

Question

auf Anfrage bezogen werden: How do I substitute with an evaluated expression in Perl?

In Perl gibt es eine Art und Weise wie in Ruby zu tun:

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

und es kann 2 ausdrucken?

Answer 1

Es gibt eine ähnliche Kurzschrift in Perl dafür:

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

Dies funktioniert, weil die [] eine Referenz auf einen Array erzeugt ein Element enthält (das Ergebnis der Berechnung), und dann wird die @{} dereferenziert das Array, Mit dieser Internen String-Interpolation wird jedes Element des Arrays nacheinander gedruckt. Da es nur einen gibt, druckt es nur das eine Element.

Answer 2

Sie können den @{[ EXPRESSION ]} Trick verwenden, den Greg Hewgill erwähnte.

Es gibt auch das Modul Interpolation, mit dem Sie beliebige Transformationen an den Werten, die Sie interpolieren (wie HTML-Entities codieren), zusätzlich zur Auswertung von Ausdrücken vornehmen können.