在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设置为包含四到四个元素，您必须编写

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";