scalar 函數的使用

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

>>阅读原文<<