связанный с вопросом: Как заменить выраженное выражение в Perl?
В Perl существует такой способ, как в Ruby:
$a = 1;
print "#{$a + 1}";
и он может распечатать 2?
Может ли интерполяция строк Perl выполнять любую оценку выражения?
Ответ 1
В Perl для этого есть аналогичная стенография:
$a = 1;
print "@{[$a + 1]}"
Это работает, потому что [] создает ссылку на массив, содержащий один элемент (результат вычисления), а затем @{} разделяет массив, который внутри строковой интерполяции печатает каждый элемент массива в последовательности. Поскольку есть только один, он просто печатает один элемент.
Ответ 2
Вы можете использовать трюк @{[ EXPRESSION ]}, о котором упоминал Грег Хьюглилл.
Также существует модуль Interpolation, который позволяет выполнять произвольные преобразования на значениях, которые вы интерполируете (например, кодировать объекты HTML) в дополнение к оценке выражений.