Perl以不同的方式加入？

Question

我正在研究perl模块并寻找表单的输出(字符串): a:value1 OR a:value2 OR a:value3 OR ...

值value1, value2, value3...在数组中(比如@values).

我知道我们可以join( ' OR ', @values )用来创建一个形式的连接字符串:value1 OR value2 OR value3 OR ...

但正如您在上面所看到的,我需要a:为每个值添加一个额外的附加值.

什么是一个巧妙的方法呢？

Answer 1

您通常使用map来执行以下类型的操作:

#!/usr/bin/env perl
use strict;
use warnings;

my @array = qw(value1 value2 value3);
print join(" OR ", map "a:$_", @array),"\n";

输出:

a:value1 OR a:value2 OR a:value3

map 是一个简单的循环结构,当你想要将一些简单的逻辑应用于列表的每个元素而不会使代码过于混乱时,它非常有用.