arrays - Perl print 显示每个元素的前导空格

Question

我将文件加载到数组中（数组元素中的每一行）。我处理数组元素并保存到一个新文件中。我想打印出新文件：

print ("Array: @myArray");

但是 - 它在每一行都显示了前导空格。有没有一种简单的方法可以打印出没有前导空格的数组？

Answer 1

是的——使用join：

my $delimiter = '';  # empty string

my $string = join($delimiter, @myArray);

print "Array: $string";

Answer 2

马特芬威克是正确的。当你的数组用双引号括起来时，Perl 会将值$"（默认为空格；参见perlvar 手册页）放在元素之间。你可以把它放在引号之外：

print ('Array: ', @myArray);

如果您想用逗号分隔元素，请更改输出字段分隔符：

use English '-no_match_vars';
$OUTPUT_FIELD_SEPARATOR = ',';     # or "\n" etc.
print ('Array: ', @myArray);