Perl Learning - 5 (sort(), reverse(), context, list )
@rocks=qw(talc quartz jade obsidian); print "How many rocks do you have?\n";print "I have ", @rocks, "rocks!\n";# wrong! print() list context, will print rocks' names
print "I have ", scalar @rocks, "rocks!\n"; # right, prints the number
页:
[1]