将数组转换为字符串

Question

好的，我有一个数组，看起来像这样：

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

...以及一个存储在变量中的字符串:

my $foo = "e";

我可以帮您将此内容翻译成中文。需要将其转换为以下格式的字符串：

我想将它转换为这样的字符串：

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

换句话说，我想在每个数组元素的开头添加"$foo/"，并将其变成由分号分隔的字符串。我该怎么做？

谢谢！

- andrejr

Answer 1

map和join

use warnings;
use strict;

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

__END__

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

- toolic