复制代码 代码如下:

sub test {

my $head = "abc";

my $tail = "def";

my $full = "${head}_${tail}";

print $full, "n";

}

直接写成下面这样，在strict模式下是无法通过的。

复制代码 代码如下:

my $full = "$head_$tail";