Question

关于perl正则表达式，请教大家一个问题

下面有一段Perl正则表达式代码， 现在我期望输出：
str1last
str2last
str3last
但是实际输出的是:
str1last
str1last
str1last

请教一下大家这段代码应该怎样修改一下才能实现期望的输出呢，多谢~

#!/usr/bin/perl -w
use strict;
my $regstr = "explast";
my @list = qw(str1 str2 str3);
foreach my $exp (@list) {
$regstr =~ s/exp/$exp/g;
print("$regstr\n");
}

Answer 1

有个小错误，改好了：

#!/usr/bin/perl -w
 use strict;
 my $regstr = "explast";
 my @list = qw(str1 str2 str3);
 foreach my $exp (@list) {
        my $tmpstr = $regstr;
     $tmpstr =~ s/exp/$exp/g;
     print("$tmpstr\n");
 }