如何與多發性值替換字符串中的Perl

Question

假設我有一個字符串，數組如下：

my $str = "currentStringwithKey<i>"; 
my @arr = ("1", "2"); 

那麼，有沒有更好的方式來迅速與每個值數組中替換字符串，而不是使用for循環，並將每個替換的輸出放入新數組中。

我預計產量爲：

my @outputArray = ("currentStringwithKey1", "currentStringwithKey2"); 

Answer 1

不使用循環使用map爲做到這一點

/R用於返回替代的非破壞性修改並保持原來的字符串未觸及

my $str = "currentStringwithKey<i>"; 
my @arr = ("1", "2");     
my @output = map{ $str=~s/<i>/$_/rg } @arr; 
#$str not to be changed because of the r modifier 
print @output; 

然後@output陣列包含這樣

$output[0] = "currentStringwithKey1", 
$output[1] = "currentStringwithKey2" 

Answer 2

這裏有你想要的。這種做法將與替換文本替換<i>無論在哪裏<i>出現在模板$str

@outputArray = map { my $i=$str; $i =~ s/\<i\>/$_/; $i } @arr 

您需要$str複製到一個臨時取代，因爲在原地工作。如果您直接使用$str，那麼其價值將首次發生變化。