Perl字符串插值可以执行任何表达式求值吗？

相关问题： http://stackoverflow.com/questions/3939788/perl-regex-substituion/3939854

在Perl中，有一种像Ruby一样的方式：

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

它可以打印出2？

解决方法

在Perl中有一个类似的简写：

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

这是因为[]创建对包含一个元素(计算结果)的数组的引用，然后@ {}解引用数组，其中字符串插入顺序打印数组的每个元素。因为只有一个，它只打印一个元素。