1 2 3 4 5 6 7
#! /usr/bin/perl @rocks = qw /limesone quartz graphite/; print "how many kinds of rocks do you have ?\n"; print "I have , "scalar @rocks", kinds of rocks.\n";
1 2 3 4
String found where operator expected at line 7, near "@rocks", kinds of rocks.\n"" (Missing operator before ", kinds of rocks.\n"?) syntax error at line 7, near ""I have , "scalar" Execution aborted due to compilation errors.