perl - 在 Perl 中打印数组

Question

我在 Ubuntu 中使用 Perl。我为数组分配了几个值，当我打印数组时，它给出了一些 HASH 值。

有人可以帮助我吗？

这是代码。

#!/usr/bin/perl
my $VAR="you are welcome";
my @arr={'1','2','3','4'};
print @arr;
print $VAR."\n";
print "$$ \n";

这是输出

HASH(0x140cd80)you are welcome 
12548

Answer 1

{ ... }生成一个匿名哈希，并且您已将哈希分配{ 1 => '2', 3 => '4' }给 的第一个也是唯一的元素@arr。

要设置@arr包含 1 到 4 的四个元素，您必须编写

my @arr = ( 1, 2, 3, 4 );

或者

my @arr = 1 .. 4;

然后print @arr将输出1234.

如果要在数组元素之间放置空格，只需将数组放在双引号内即可。print "@arr"将输出1 2 3 4

Answer 2

以下是在 Perl 中打印数组时可以使用格式的其他一些方法：

print join(", ", @arr);

或者

$" = ", ";
print "@arr\n";