将数组转为字符串

Question

好的，所以我有一个如下所示的数组：

@foo = ("a","b","c","d");

...以及存储在变量中的字符串：

my $foo = "e";

我想把它变成一个看起来像这样的字符串：

"e/a;e/b;e/c;e/d"

换句话说，我想将“$foo/”添加到每个数组元素的开头，并将其转换为以分号分隔的字符串。我该怎么做？

谢谢！

Answer 1

地图和加入

use warnings;
use strict;

my @foo = ("a","b","c","d");
my $foo = "e";
my $s = join ';', map { "$foo/$_" } @foo;
print "$s\n";

输出：

e/a;e/b;e/c;e/d