连接到多个字符串（Perl）

Question

是否有一种简单的方法可以将单个值连接到字符串列表的末尾？

我有......

($string1,$string2) .= @array_to_add;

但它没有添加任何东西。

我还希望连接数组中的值，但也不会在字符串中添加任何内容......

($string1,$string2) .= (@array_to_add);

和

{{1}}

两者都不起作用......

Answer 1

$string1 .= $to_append[0];
$string2 .= $to_append[1];

如果您有两个阵列：

$strings[$_] .= $to_append[$_] for 0..$#strings;

作为一项功能：

sub append_one_to_each {
   my $to_append = shift;
   return map { $_[$_] . $to_append->[$_] } 0..$#_;
}

say for append_one_to_each(\@to_append, $string1, $string2); 
  -or-
say for append_one_to_each(\@to_append, @strings);