Perl打印显示每个元素的前导空格

Question

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

print ("Array: @myArray");

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

Answer 1

是 - 使用join：

my $delimiter = '';  # empty string

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

print "Array: $string";

Answer 2

Matt Fenwick是正确的。当您的数组使用双引号时，Perl会在元素之间放置$"的值（默认为空格;请参阅the perlvar manpage）。你可以把它放在引号之外：

print ('Array: ', @myArray);

如果您希望元素之间用逗号分隔，请更改output field separator：

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