用Perl打印数组

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

有人能帮我吗

这是代码

#!/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

---

{…}

生成一个匿名散列，您已将散列

{1=>'2'，3=>'4'}

分配给

@arr

的第一个也是唯一一个元素

要将

@arr

设置为四个元素包含一到四个元素，必须编写

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

或

然后，

print@arr

将输出

1234

---

如果要在数组元素之间加空格，可以将数组放在双引号内

print“@arr”

将输出

1234
{…}
生成一个匿名散列，并且您已将散列
{1=>'2'，3=>'4'}
分配给
@arr
的第一个也是唯一一个元素

要将
@arr
设置为四个元素包含一到四个元素，必须编写

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

或

然后，
print@arr
将输出
1234

如果要在数组元素之间加空格，可以将数组放在双引号内<代码>打印“@arr”

将输出

1234

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

print join(", ", @arr);

或

---

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

print join(", ", @arr);

或

---

{}

表示hashref。使用

my@arr=（'1'，'2'，'3'，'4'）一切都应该按预期进行。太棒了。非常感谢您宝贵的帮助
{}
表示hashref。使用
my@arr=（'1'，'2'，'3'，'4'）一切都应该按预期进行。太棒了。非常感谢您宝贵的帮助和有关
$”=qq（\n）
的一些功能以及有关
$”=qq（\n）