Perl的那些技巧：为数组元素加双引号

转载请注明出处

为数组元素加双引号

想要将一个数组的所有项都用引号括起来并输出，我们可以用下面的方法：

my @array = qw(A B C);
print join(' ',map { qq/"$_"/ } @array);

上面的方法可以满足需求，但是代码看起来挺繁琐的，如何更优雅。

使用map:

my @array = qw(A B C);
print """.join("" "",@array).""";

使用do:

my @array = qw(A B C);
print do { local $" = q<" ">; qq<"@a"> };

$"变量会存放" "，然后插入到数组中。