uat-prx02:/root# cat a1.pl
@array=qw/1 2 3 /;
print @array;
print "\n";
$array=[1,2,3];
print $array;
print "\n";
print "222222222222\n";
print @$array;
print "\n";
uat-prx02:/root# perl a1.pl
123
ARRAY(0x2146188)
222222222222
123
本文通过示例代码展示了Perl中数组的定义与引用，包括使用`@array`和`$array`的区别，以及如何打印数组元素。在示例中，首先定义了一个常规数组并打印，接着创建了一个数组引用，并输出了引用的内存地址。最后，通过`@$array`打印了数组的内容。
扫一扫
2784
被折叠的 条评论
为什么被折叠?
到【灌水乐园】发言
