http://qs321.pair.com?node_id=1101052


in reply to Perl Newbie

Welcome to the Monastery. Not sure how new a newbie you are... so I broke it down a bit
my # declare the variables in the local +scope (guarantees you won't overwrite a variable already in use or ca +pture a value already assigned) ($_configParam,$_paramValue) # A list of variable names that you a +re declaring, note that coma separated variables between parenthesis +are treated similarly to an array for assignment purposes = # and as you declare them you assign +them a value split( # a Perl function that splits strings + on the basis of a regular expression /\s*=\s*/ # the regular expression to use in th +e split. any number of space characters, followed by an equals sign f +ollowed by any number of space characters , $_ # The second part of the split state +ment, the string to be split $_ is the default variable, you will see + it a lot. , 2); # Limit the split to 2 values, close + the call to split and terminste the line with a semi-colon $configParamHash{$_configParam} # in an indexed list keyed on the par +ameter name = $_paramValue; # assign the value above to a hash en +try keyed on the parameter name
This is a common pattern used when reading through a configuration file to assign name value pairs in the file to an easily accessed indexed list.

print "Good ",qw(night morning afternoon evening)[(localtime)[2]/6]," fellow monks."