#!/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 函数的使用
最新推荐文章于 2024-07-02 15:53:10 发布