转载请注明出处
为数组元素加双引号
想要将一个数组的所有项都用引号括起来并输出,我们可以用下面的方法:
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"> };
$"变量会存放" ",然后插入到数组中。