#!/user/bin/perl
@rocks=qw( talc quartz jade obsidian);
print "How many rocks do you have ?\n";
print "i have ",@rocks," rocks!\n";
print "i have ",scalar @rocks , " rocks!\n"; #
print @rocks+1-1;
#scalar @rocks 出来的结果是4
#类似这种计算方式 1+@rocks-1
scalar 函数的使用
最新推荐文章于 2026-07-18 14:05:52 发布
本文通过一个简单的Perl脚本示例介绍了如何定义数组并使用标量获取数组元素的数量。展示了数组赋值、打印数组元素及使用标量变量计数的方法。

1244

被折叠的 条评论
为什么被折叠?



